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FORTH 


DU NOUVEAU POUR Volks-FORTH SUR ATARI 


par Daniel FLIPO 


Volks-FORTH sur ATARI (83-Standard) 


Enfin des nouvelles de Voiks-FORTH 83-Standard pour 
ATARI: 

- un éditeur complètement francisé (menu et boîtes de 
dialogue) 

- les commandes CTRL À, CTRL M, CTRL W de cet éditeur 
fonctionnent maintenant normalement (les claviers 


farnçais et allemand étant différents, une adaptation 
s'imposait...) 


- Un fichier ASCII LISEZ.MOI qui contient les 
principales explications nécessaires à l'utilisation de 
ce FORTH. 


Rappelons que le n° 35 de JEDI contenait (pages 17 à 20) 
déjà une présentation de ce langage et Îles premières 
indications pour la mise en route... 


Les adhérents qui ont acquis l'ancienne version toute en 
allemand pourront obtenir la nouvelle version en 
envoyant: 


- une enveloppe (matelassée de préférence) timbrée à 
5,60 Fr portant leur adresse, 
- une disquette 3' vierge à l'adresse suivante: 


Daniel FLIPO 
1, bis rue St Jacques 
59800 LILLE 


Ils recevront leur disquette contenant Îles fichiers 
modifiés (EDITOR.SCR, EDIICON. RSC, EDIICON.SCR, 
PRINTER.SCR, STARTUP.SCR et LISEZ.MOI) et la nouvelle 
version de 4TH. PRG. 


I1 reste encore beaucoup de travail à faire (avis aux 
courageux qui lisent l'allemand!) pour traduire la 
documentation imposante et très bien faite qui accompagne 
ce FORTH, mais j'espère que cette nouvelle présentation 
permettra à un plus grand nombre d'Ataristes de profiter 
des remarquables possibilités de ce langage très bien 
adapté à leur machine, qui offre: 


- un éditeur pleine page entièrement sous GEM (pas 
besoin d'attendre TURBO-Forth!) avec fonctions de 
remplacement de chaînes de caractères, recopie de 
morceaux d'écrans sur d'autres, etc..., toutes ces 
fonctionnalités étant accessibles à la fois par menu 
déroulant ou directement au clavier. 
commode "débugger" 


- un traceur très les 


programmes récalcitrants. 


pour 


- une possibilité de travail en multi-tâches autorisant 
par exemple l'impression d'un listing pendant la 
compilation ou l'exécution d'un autre programme. 


- un interface permettant de développer une application 


sous GEM avec menus déroulants, bôites de dialogue, 
graphismes, etc... toutes les fonctions GEM du C 
(Mégamax, Lattice) sont implantées avec en plus des 


macros très pratiques d'emploi (affichage d'une boîte de 
dialogue avec sauvegarde de l'écran avant ouverture et 
restitution après fermeture, en une seule instruction par 
exemple... ). 


J'espère vous avoir suffisamment mis l'eau à la bouche et 
vous souhaite bien du plaisir! 


1) EDITEUR SOUS GEM 


Après avoir double-cliqué 4TH.PRG pour entrer sous FORTH, 
vous pouvez: 
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1) CHOISIR UN FICHIER EXISTANT COMME FICHIER COURANT en 

tapant 

USE NOM FICHIER.SCR <return> 

puis 3 L <return> pour entrer sous éditeur avec 
l'écran 3 de ce fichier dans la fenêtre. Pour connaître 
le nombre d'écrans du fichier courant, i1 suffit de taper 
(sous FORTH) CAPACITY <return>. Les écrans sont 
numérotés de 0 à "capacity-1", et l'écran O0 ne peut 
contenir que des commentaires (description du fichier...) 
car il n'est jamais compilé. 


Sous éditeur, essayez à loisir les différentes options du 
menu  (protégez vos disquettes avant!) pour vous 
familiariser avec ses nombreuses possibilités. À l'appel 
de chaque option du menu apparaît une boîte de dialogue 
qui vous renseigne sur l'effet de l'option choisie, et 
vous permet d'annuler ou de confirmer votre choix. En 
face de chaque option du menu figure le code clavier 
équivalent à la fonction appelée: lorsque vous connaîtrez 
mieux l'éditeur, vous pourrez ainsi ne plus utiliser la 
souris, en tapant par exemple CTRL N pour passer à 
l'écran suivant (CTRL=touche Control désignée par ” dans 
le menu, et N pour Next), ou ÆCTRE B pour revenir à 
l'écran précédent. 


Pour sortir de l'éditeur, on a le choix entre 4 options 
(menu SORTIES) dont les deux plus usuelles sont: 


ESC (touche escape) pour sortir sans rien sauvegarder 
CTRL S (S pour SAVE) pour sauvegarder sur disquette 
toutes les modifications faites. 


Après être sorti de l'éditeur, on peut rappeler le 
dernier écran vu par V <return> (ou bien sûr son numéro 
suivi de L puis de <return>). Une autre utilisation de V: 
lors d'un arrêt en cours de compilation (erreur...?) i1 
suffit de faire V <return> pour revenir sous éditeur, Île 
curseur étant placé automatiquement juste derrière le mot 
qui a provoqué l'erreur. 


2) CREER UN NOUVEAU FICHIER SOURCE 
Taper pour cela sous FORTH 


MAKEFILE NOM FICHIER.SCR <return> 
puis 2 MORE pour allouer deux écrans (de 16 lignes de 64 
caractères, soit 1024 octets) dont les numéros sont 0 et 
1. 


Par la suite on pourra ajouter d'autres écrans si 
nécessaire en tapant par exemple 3 MORE pour ajouter 
trois écrans au fichier, mais 11 est très peu commode 
d'en supprimer... 


3) COMPILER UN FICHIER SOURCE. 


Pour compiler un fichier en entier (c'est à dire tous les 
écrans sauf 0) on tape sous FORTH: 


INCLUDE NOM FICHIER.SCR <return> 


Si l'on ne veut compiler que l'écran 2 du fichier courant 
(chargé par USE NOM FICHIER.SCR) on fait 2 LOAD <return> 
ou 3 8 THRU <return> pour compiler les écrans 3 à 8 
inclus. 


On peut bien sûr supprimer des mots du dictionnaire grâce 
à FORGET. En règle générale, ce FORTH suit le standard 
F83. Pour vous en convaince, Tlistez Îles différents 
vocabulaires par WORDS: ONLYFORTH WORDS <return> listera 
le noyau FORTH... Notez également que l'interpréteur ne 
se soucie pas des majuscules: allot ALLOT ou aLLoT ont Île 
même effet... 


4) RECOPIER UNE DEFINITION D'UN FICHIER DANS’ UN AUTRE 


Sous FORTH, VIEW MOT <return> fait passer sous éditeur 
avec le curseur placé juste derrière le mot MOT, ce qui 
permet de consulter sa définition. Le fichier courant est 
alors le fichier contenant MOT. Le nom de ce fichier et 
le numéro d'écran sont affichés dans la fenêtre. 


Exemple:  SOURCE.SCR écran 6 

On peut copier tout cet écran sur l'écran 3 du fichier 
DEST,.SCR en tapant (sous FORTH, sortir de l'éditeur par 
ESC) 


DEST.SCR 6 FROM SOURCE.SCR 3 COPY <return> 
De même pour copier les écrans 5 à 8 inclus du fichier 
SOURCE sur Îles écrans 2 et suivants du fichier DEST, 
faire 


DEST.SCR 5 8 FROM SOURCE. SCR 2 CONVEY <return> 


S'i1 s'agit de recopier des écrans à l'intérieur d'un 
même fichier (le fichier courant), il suffit de taper 


6 3 COPY <return> pour copier l'écran 6 sur l'écran 3, 
ou 

5 8 7 CONVEY <return> pour copier les écrans 5 à 8 à 
partir de l'écran 7 (Îles zones sources et destination 
peuvent se chevaucher sans problème... ). 


On peut également copier seulement qeulques lignes d'un 
écran en restant sous éditeur: l'option VOIR MOT du menu 
(ou son équivalent CTRL V) permet de rechercher une 
définition dans l'ensemble des fichiers .SCR. On sort de 
la boîte de dialogue par MARQUER (pour pouvoir revenir à 
l'écran actuel où la définition de MT doit être insérée) 
et on recopie les lignes désirées en plaçant Île curseur 
dans la première ligne à copier, puis en tapant CTRL down 
(flèche vers bas du pavé curseur) autant de fois que de 
lignes à copier (ces lignes sont stockées dans un tampon 
spécial), on fait ensuite CTRL W pour revenir à l'écran 
initial, on place le curseur à l'endroit choisi pour 
l'insertion, et on recopie les lignes du tampon par SHIFT 
down. 


5) ENCORE QUELQUES INDICATIONS SUR L'EDITEUR... 


Le mot \ interdit la compilation du texte qui suit sur la 
même ligne (utilisé pour les commentaires...), et le mot 
\\ fait de même sur la fin d'écran. 


Le mot \needs sert à 
d'écrans. Exemples: 


la compilation conditionnelle 


\needs code include assemble.scr 
\needs >absaddr : >absaddr forthstart O D+ ; 


suit \needs figure déjà dans le 
dictionnaire (ou plus précisément dans les vocabulaires 
autorisés en lecture), le compilateur ignore la fin de 
ligne et passe à la suivante, sinon il exécute la fin de 
ligne. Ceci permet d'inclure Tes définitions de mot 
nécessaires seulement si elles ne figurent pas déja dans 
le vocabulaire. 


Si le mot qui 


II) LE TRACEUR (inclus dans TOOLS,SCR) 


Les mots dont 1a définition commence par : peuvent tous 
être exécutés pas à pas en mode "trace". Pour tester Île 
mot MOT, on fait: DEBUG MOT <return> pour Tancer le mode 
"trace", puis on exécute MOT (ou tout autre mot contenant 
MOT dans sa définition), qautres colonnes apparaissent 
alors à l'écran: 

Adresse(k) CFA(k) MOT(k) Etat de la pile 

- MOT(k) est le kième mot de la définition de MOT. I1 
sera exécuté à la prochaine frappe de <return> 

- Adresse(k) est l'adresse dans le dictionnaire de 
MOT(k) en tant que partie de MOT (exprimée en 
hexadécimal) 

- CFA(K) est l'adresse de compilation 
hexa) 

- État de la pile est vu avant l'exécution de MOT(k), 
le sommet de la pile étant le terme Île plus à gauche... 
Les valeurs sont exprimées dans la base courante. 


de MOT(k) (en 


Chaque frappe de <return> provoque l'exécution du mot 
MOT(k) affiché dans 1a dernière ligne. On peut arrêter 
l'exécution de MOT à tout moment en frappant 


RESTART <return> 


On peut également rentrer plus profondément en mode trace 
pour faire exécuter pas à pas le mot MOT(K) inclus dans 
la partie de définition de MOT, pour cela taper 


NEST <return> 
à la fin de MT(k) on continuera à "tracer" MOT... 


Encore une possibilité remarquable: si MOT contient une 
boucle qui doit être exécutée un grand nombre de fois, il 
arrive qu'après avoir vérifié une ou deux exécutions de 
celle-ci on souhaite parcourir Tes suivantes en temps 
réel. Pour cela taper 


ENDLOOP <return> 


à la fin de la boucle. Le traceur s'arrêtera ainsi à 
chaque parcours de Ta boucle à a ligne où figure 
ENDLOOP, 

Au cours d'exécution d'un mot en mode "trace", vous avez 
à chaque ligne la possibilité de faire exécuter Tes mots 
FORTH de votre choix avant MOT(k): vous pouvez par 
exemple ajouter des paramètres sur 1a pile, en enlever, 
faire des SWAP ROT etc..., ou visualiser le contenu de 


variables (taper NOM VARIABLE @ .) ou d'une zone mémoire: 


adr début(16bits) longueur(16bits) DUMP 


pour une zone située à l'intérieur des 64 Ko du FORTH, ou 
adr début(32bits) longueur(16bits) LDUMP 
pour une zone définie par une adresse absolue. 


On quitte Te mode "trace" par RESTART ou par END-TRACE, 
Essayez 1e fonctionnement de ce remarquable outil sur 
quelques exemples, il vous permettra de localiser vite et 
bien les (rares?) erreurs que vous auriez pu commettre... 


111) L'IMPRESSION DES FICHIERS 


Tous Tes mots provoquant des affichages sont vectorisés 
(EMIT TYPE SPACE PAGE AT AT? etc...). 


PRINT provoque la sortie sur imprimante, tandis que 
DISPLAY revient à l'affichage sur écran. 


1) Les principaux mots à connaître sont les suivants: 
PRINTALL imprime tout le fichier courant 
Exemple: si on tape USE ASSEMBLE.SCR PRINTALL <return> 
la totalité du fichier ASSEMBLE.SCR (y compris l'écran 0) 
est imprimée à raison de 6 écrans par page en deux 
colonnes de trois écrans (format condensé). 
LISTING imprime tout le fichier courant, avec l'écran 
commentaire (s'il existe) à droite de l'écran source 
qu'il commente. 


Exemple: USE PRINTER.SCR LISTING <return> 


Utile pour imprimer les sources commentés: EDITOR.SCR, 
EDWINDOW. SCR, SUPERGEM.SCR, RAMDISK.SCR... 


PTHRU 2 5 PTHRU <return> imprime les écrans 2, 3, 4 
et 5 du fichier courant sur une même page: 


Ecran 4 
Ecran 5 


Ecran 2 
Ecran 3 


DOCUMENT comme PTHRU mais avec écrans commentaires. 
Exemple: si le fichier courant est PRINTER.SCR, 

11 13 DOCUMENT <return> 
écrans 11 


imprime Îles à 13 et les écrans commentaires 


associés: 
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Ecran 11 Ecran 26 
Ecran 12 Ecran 27 
Ecran 13 Ecran 28 


2) Réglages: 


L'interface PRINTER.SCR est prévue pour les imprimantes 
compatibles EPSON. Pour adapter d'autres types 
d'imprimantes, il suffit de s'inspirer des écrans 4 et 5 
(commentés 19 et 20) et de la documentation de 
l'imprimante. 


Pour nous français, l'écran 6 ne sert à rien, il vaut 
mieux ne pas le compiler (d'où Te \\ au début de cet 
écran). 


La longueur du papier a été réglée à 11 pouces (environ 
28 cm), on peut la porter à 12 pouces en remplaçant &11 
par &12 dans la définition de NORMAL (écran 5 de 
PRINTER. SCR). 


3) Impression en arrire-plan. 


La compilation du fichier TASKER.SCR avant celle de 
PRINTER.SCR permet de disposer du mot SPOLL' qui installe 
un spooler d'imprimante. On l'utilise de Va manière 
suivante: 


- taper MULTITASK <return> pour mettre le système en 
fonctionnement multi-tâches (on revient en monotâche en 
tapant SINGLETASK <return>) 

- puis SPOOL' PRINTALL <return> 

ou  SPOOL' LISTING <return> 
ou 2 5 SPOOL' PTHRU <return> 
ou 11 13 SPOOL' DOCUMENT <return> 


pour reprendre les mêmes exemples que ci-dessus mais en 
récupérant la main immédiatement au lieu d'attendre la 
fin de l'impression... On peut travailler sous FORTH mais 
41 faut quand même attendre la fin de l'impression pour 
en commander une autre! 


IV) FICHIERS ALLOCATE.SCR ET RELOCATE.SCR 


1) ALLOCATE, SCR 


Les mots MALLOC et MFREE permettent de réserver ou de 
libérer des zones mémoire (en dehors de la zone FORTH). 


MALLOC ( d --- laddr) réserve d octets ( d = entier 32 
bits) et retourne l'adresse absolue (32 bits) du début de 
zone réservée. 


MFREE ( laddr --- ) libère la zone précédemment 
réservée commençant à l'adresse laddr. 


Pour travailler sur des zones mémoire extérieures au 
FORTH on dispose des mots suivants: 


>ABSADDR ( addr --- laddr) convertit l'adresse 16 bits 
addr interne au FORTH en laddr adresse absolue 32 bits. 


L@ L! LC@ LCI! (ndlr: implantés également sur TURBO- 
Forth) et L2! L2@ LCMOVE LDUMP opèrent comme leur 
homologue @ ! C@ C! 2@ 2! CMOVE DUMP du standard F83 mais 
sur des adresses absolues 32 bits. 


>ABSADDR est défini dans DIVERSES.SCR, les autres dans 
le noyau FORTH-83,SCR. 


2) RELOCATE.SCR 


Les mots RELOCATE et BUFFERS permettent de remodeler Ta 
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disposition des 64ko de la zone FORTH. 


RELOCATE ( n1 n2 --- ) fixe la longueur maximale de la 
pile de données à nl et celle de la pile de retour à n2. 


BUFFERS (n ---) fixe à n (n>0) le nombre de blocs de 
1024 octets réservés en haut de la mémoire pour le 
stockage des écrans. Initalement ce nombre est fixé à 10, 
en le diminuant, on augmente la place disponible pour Île 
dictionnaire, au prix d'un confort moindre en mode 
éditeur (lectures et écritures plus fréquentes sur le 
disque... ). 


Avant l'appel de ces deux mots, il est conseillé de 
faire SAVE pour verrouiller le dictionnaire et les 
vocabulaires. 


V) TRADUCTION DES MESSAGES EN ALLEMAND 


HAEH? le mot qui précède HAEH? n'a pas été trouvé dans 
le dictionnaire (vérifier le vocabulaire de recherche!). 


NEIN la liste des écrans que devait copier CONVEY est 
vide ou trop longue. 


DATEI NICHT GEFUNDEN un fichier dont l'ouverture a été 
demandée (par USE par exemple...) n'a pas été trouvé sur 
la disquette. vérifier PATH 


DISK SCHREIBGESCHUTZT essai d'écriture sur une 
disquette protégée (volet ouvert). 


DISK VOLL disquette pleine 


PFAD NICHT GEFUNDEN le chemin de recherche du fichier 
défini par DIR n'existe pas. 


UNGULTIGE HANDLE# erreur de gestionnaire de fichier: 
souvent appel d'un fichier déjà fermé. 


UNGULTIGE LAUFNERK le lecteur de disquette défini par 
SETDRIVE ou A: B: n'existe pas. 


ZUGRIF NICHT MÜGLICH appel d'un écran qui n'existe 
pas. Exemple: 1 10 THRU (compilation des écrans 1 à 10) 
d'un fichier pour lequel CAPACITY vaut 10 (c.à.d. écrans 
0 à 9 seulement! ). 


J'espère que cette introduction vous permettra de mieux 
utiliser le VOLKSFORTH-83, IT reste encore beaucoup à 
découvrir par vous-même (la programmation sous GEM par 
exemple...) et vous apprendrez des tas de chose en 
parcourant les fichiers sources dont certains sont 
documentés (mais hélas en allemand!). 


| | Bon amusement! 
Daniel FLIPO 


LA VIRGULE FLOTTANTE 83-STANDARD 


V1.0 d'après version fig MPE Ldt 
adaptée F83 par M.ZUPAN 


pour TURBO-Forth 
F83 Laxen et Perry CP/M et MSDOS 
F83 ORIC 


INFORMATION  IMPORTANTE: ce programme est disponible en 
disquette auprès de 1'ASSOCIATION JEDI contre envoi de la 
somme de 37,00 Fr (10 timbres à 3,70 Fr) et accompagné de 
divers autres programmes déja diffusés dans JEDI. 


LE LISTING DU PROGRAMME: 


ONLY DEFINITIONS FORTH VOCABULARY F-PACK 


\ eee He 2e 2e 26e € De 3e DK D D DE HE HO D D D UC D DEC DE D De D DH HE GG DE DE DEEE DD D CO 


\ routines <-S S-> de décalages 32 bits 

\ ke DR ke ee Mc 2e DK De DEC He Due D D De De I De ee De De De ie De fe ae I 3e fe de De ae 32 DE De De be De de ec 3H DK 98e De ke De DRE 
\ Ces deux routines sont au coeur de tout système 

\ flottant: ‘ 

\ elles opèrent les décalages à gauche et à droite 

\ de 1 bit avec introduction d'un bit O0 ou 1 à un bout 

\ et récupération d'un bit 0 ou 1 à l'autre 

\ bout. Elles peuvent être écrites en Forth comme 

\ ci-dessous mais il est hautement recommandé de les 

\ écrire en code. Le reste de F-PACK sera en haut niveau. 


\:<-S (S ud bit-entrée-D -- ud bit-sortie-G ) 
\ -ROT DUP 0< >R 2DUP D+ ROT O D+ R> ABS : 
\: S-> (S ud bit-entrée-G -- ud bit-sortie-D } 
\ >R 2 MU/MOD R> IF O 32768 D+ THEN ROT :; 
CODE <-S 

AX POP  AX RCR  DX POP  BX POP 

BX RCL DX RCL  O # AX MOV AX RCL 

BX PUSH  2PUSH  END-CODE 
CODE S-> 

AX POP AX RCR  DX POP  BX POP 

DX RCR BX RCR  O # AX MOV AX RCL 

BX PUSH  2PUSH END-CODE 


\ ADEME Me MC OK Ike MI AC CIE He De Dee He ee ME HE D D MM De D HE DE DC A LE HE D CA 3 DIE HE NE ED 3e EI DIE IH IIE HE HCHEIE 


\ variables et constantes 
À ont INR MR 


: FI (S f adr -- ) 
DUP >R 2! R4+1!; 
: F@ (S adr -- F ) 


DUP >R 4 + @ R> 20 ; 


: FVARIABLE CREATE 0 , O0 , O,  DOES> ; 
: FCONSTANT CREATE HERE 6 ALLOT F! DOES> F@ ; 


VARIABLE EXP 
VARIABLE EXP1 
VARIABLE HI 
VARIABLE /SN 
VARIABLE ZN 
VARIABLE ZFLG 


VARIABLE  SGN 
VARIABLE 107 
VARIABLE HI2 
VARTABLE +SN1 
VARIABLE ZEYP 
VARIABLE FIX 


VARIABLE FLG 
VARIABLE LO2 
VARIABLE *SN 
VARIABLE +SN2 
VARIABLE ZSGN 


() 0 O  FCONSTANT 70 

0 16384 1  FCONSTANT 71 
26214 26214 —3  FCONSTANT %.1 

0 20480 4  FCONSTANT #10 

0 23040 8  FCONSTANT 7180 
-4780 25735 2  FCONSTANT PI 
-4781 25735 1  FCONSTANT PI/2 
-4780 25735 O  FCONSTANT PI/4 
-15946 20860 O  FCONSTANT 2/PI 
-15946 20860 -1  FCONSTANT 1/PI 
31129 23170 O  FCONSTANT ZS0QR. 5 


FVARIABLE FSTI 
FVARIABLE DUM 
FVARIABLE %F 


FVARIABLE FST2 
FVARIABLE ZSTK1 


FVARIABLE FST3 
FVARIABLE %Y1 


\ HG REC D GE De De D DRE De ED D CDR DE D CIRE D HG DC BG DE D DH IR D D DAC 9H DR DE D DB D CSC DFE DRAC DRE DEC DE SIC 


\ opérations élémentaires 
\ EEE DC DEN DK De EE BC D DC DE DC DÉCIDE DE D DD D DEEE Cf D D DÉC ee D ee ke be ke 8 bc be es 5 3e 3e 8e 


: DNORM (S d n -- mantisse exp ) 
\ normalise n bits d'un double 


5: D>F 

: S>F 

: FSIGN 

: FDUP 

: FOVER 

: FROT 

: FSWAP 

: FNEGATE 
: FDROP 

: FABS 


: D* 


: D! 


SF 


: F/ 


: F+ 


TJFDI 


EXP ! 2DUP OR 
IF DUP O< SGN ! DABS 
BEGIN EXP 1-1 O <-S DROP 
DUP O< 


UNTIL 
EXP 1+! O S-> DROP 
SGN @ 
IF DNEGATE THEN 
EXP @ 

ELSE 0 

THEN ; 


(Sd --#f) 

31 DNORM ; 

(Sn--f) 

S>D D>F ; 

(S F -- F F1 ) 

>R DUP O< >R DABS R> R> SWAP ABS ; 


3DUP ; 

5 PICK 5 PICK 5 PICK : 

FSTI F! FST2 F1 FST3 F1! 

FST2 F@ FSTI F@ FST3 F@ : 

FST1 F! FST2 F! FST1 F@ FST2 F@ :; 
>R DNEGATE R> ; 

2DROP DROP ; 

>R DABS R> ; 


(S d1 d2 -- d1*d2 64 bits ) 
HI2 ! LO2 ! HIT ! LO1 ! 


LOT @LO2@ UM* 
0 LO2 @ HI1 @ UM* D+ 
LOT @ HI2 @ UM* D+ 


0 HIT @ HI2 @ UM* D+ ; 


DUM 21! ; 
DUM 2@ ; 


(S F1 F2 -- F3 ) \ multiplication 
FSIGN *SN ! 1+ EXP ! D! 
FSIGN *SN +! EXP +! D@ 
D* 2DUP OR 
IF BEGIN 
DUP 16384 AND O= WHILE 
EXP 1-1 >R >R O <-S R> R> ROT <-S DROP 
REPEAT 
D! NIP D@ ROT O< ABS 0 D+ 
DUP 0< 
IF O S-> DROP EXP 1+! THEN 
*SN @ 1 = 
IF DNEGATE THEN 
EXP @ 
ELSE FDROP DROP 0 0 O0 
THEN ; 


€S F1 F2 -- F3 ) \ division 
FSIGN /SN ! NEGATE EXP ! 
2DUP OR 
IF DNEGATE D! FSIGN /SN +! EXP +1 

>R >R O O R> R> 

31 FLG ! 

BEGIN D@ D+ DUP O< 

IF >R >R O <-S DROP R> R> D@ DNEGATE D+ 


ELSE >R >R 1 <-S DROP R> R> 

THEN 

O <-S DROP FLG DUP 1-1 @ O- 
UNTIL 


2DROP EXP @ 1+ DNORM /SN @ 1 = 
IF FNEGATE THEN 
ELSE TRUE ABORT" division par zéro" 
THEN ; 


(S F1 F2 -- f3 ) \ addition 
2 PICK 2 PICK OR 
IF FSIGN +SN1 ! EXP ! D! 2 PICK 2 PICK OR 
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IF FSIGN +SN2 ! EXP1 ! EXP @ EXP1 @ - DUP 
IF DUP O> IF O DO O S-> DROP LOOP 
ELSE D@ ROT ABS 0 
DO O0 S-> DROP LOOP D! 
THEN 
ELSE DROP 
THEN 
D@ +SN1 @ +SN2 @ - EXP @ EXP1 @ MAX EXP ! 
IF DNEGATE D+ 
ELSE D+ EXP 1+! O S-> O D+ DUP 0< 
IF EXP 1+! O S-> DROP THEN 
THEN 
+SN2 @ IF DNEGATE THEN EXP @ DNORM 
ELSE FDROP D@ +SN1 @ 
IF DNEGATE THEN EXP @ THEN 
ELSE FDROP 
THEN ; 


: F- (S f1 F2 -- F3 ) \ soustraction 
FNEGATE F+ ; 


: F>D (S f -- d ) 

FSIGN SGN ! DUP O< 

IF FDROP 0 © 

ELSE 31 SWAP - DUP 0< 
ABORT" dépassement pour F>D" 
0 ?D0 O S-> DROP LOOP 
SGN @ IF DNEGATE THEN 

THEN ; 


: FINT  (Sf--f) 
DUP 32 < IF F>D 31 DNORM THEN ; 


: F>S (Sf--n) 
F>D ?OUP IF 1+ 
ABORT" dépassement pour F>S" 
THEN ; 


: FO< DROP NIP 0< 
FO> DROP NIP O> 


: FO= DROP OR 0- 
: F= F- FO= ; 
: F< F- FO< ; 
: F> F- FO> ; 


: FMAX FOVER FOVER F< IF FSNAP THEN FDROP ; 
: FMIN FOVER FOVER F> IF FSWAP THEN FDROP ; 


: FLITERAL \ compilation d'un flottant 
STATE @ 
IF ROT [COMPILE] LITERAL SWAP 
[COMPILE] LITERAL 
[COMPILE] LITERAL 
THEN ; IMMEDIATE 


: F/MOD (S F1 F2 -- rf3 qf4 ) 

\ division décimale et reste 
FOVER FOVER F/ FROT FROT FABS FSWAP 
FSIGN >R FSHWAP 
8 PICK 8 PICK 8 PICK FABS FINT F* F- R> 
IF FNEGATE THEN FSHWAP ; 

: FMOD F/MOD FDROP ; 


\ ee 3e ee he jee feet je De 3 BC D 3 He 3e ke D D D AG D D DIE OS IR HE IE NIUE DIE DIE HE I CHE NC 


\ entrées/sorties : conversions alphanumériques-flottants 
A TROIE MR MR NERON 


\ entrées : E ... FLOAT , VAL , F' 
: E 
\ conversion mantisse d'un nombre simple ou double 
DPL @ -1 = IF S>D O ELSE DPL @ NEGATE THEN EXP1 


! D>F ; 
: FLOAT \ incorporation de 1'exposant 
EXP1 @ + DUP 
IF DUP O> 1F O DO %10 F* LOOP 


ELSE ABS O DO %.1 F* LOOP THEN 

ELSE DROP THEN ; 
: VAL (S string -- f ) 
\ conversion d'une chaîne en flottant 

BASE @ >R DECIMAL 

ASCII + SKIP 
2DUP ASCII E SCAN >R >R 
DROP 1- (NUMBER?) DROP 
DPL @ -1 = IF DROP THEN E 
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CL a 


R> R> ?DUP IF ASCII E SKIP ASCII + SKIP 
DROP 1- (NUMBER?) 2DROP 
ELSE DROP 0 
THEN 
FLOAT R> BASE ! : 


(S <chaîne> -- f ) 


\ interprète le mot suivant comme flottant 


BL WORD COUNT VAL [COMPILE] FLITERAL 


IMMEDIATE 
\ sorties : (E.) (F.) E. F. 

ROUND \ arrondit à zéro Îles bits Tes moins 
significatifs 


: 210PHR 


: OPREP 


: (E.) 


: CF.) 


FSIGN >R >R SWAP DUP 224 AND O= 
IF -256 AND THEN 
DUP 224 AND 224 - O= 
IF -256 AND 256 + DUP 0= 
IF SWAP 1+ ELSE SWAP THEN 
ELSE SWAP THEN 
R> OVER O< IF SWAP O 2 UM/MOD NIP SWAP 1+ THEN 
R> IF FNEGATE THEN ; 
\ extraction des puissances de dix 
DUP 0< 
IF  DUP DUP 10 / DUP 3 * >R 10 * - 3 / R> + 
ELSE DUP DUP 10 / DUP 3 * >R 10 * - DUP 7 / 
DUP >R 7 * — 4 / R> + R> + 
THEN ; 
\ conversion double décimal 
3 ?ENOUGH FSIGN ZSGN ! 
?210PNR DUP %EXP ! 8 SWAP - DUP O= 
IF DROP 
ELSE DUP 0< 
IF ABS O DO 3.1 F* LOOP 
ELSE O0 DO 710 F* LOOP 
THEN 
THEN 
DUP 29 > IF %.1 F* ZEXP 1+! THEN 
ROUND F>D ;: 
\ digit décimal, zéros significatifs 
10 MU/MOD ROT 
DUP 0<> ZFLG @ O= OR 
IF ASCII O + HOLD %FLG OFF ELSE DROP THEN ; 


(S f -- string ) \ chaîne notation scientifique 
OPREP 
<# %FLG OFF %EXP @ DUP ABS O #F #F 2DROP 
0< IF ASCII - ELSE ASCII + THEN HOLD 
ASCII E HOLD %FLG ON 
8 O DO #F LOOP ASCII . HOLD %FLG OFF #F 
RSGN @ O<> SIGN 
#> : 


(S f -- string ) 


\ chaîne notation décimale libre ou fixée 


: E. 
F5 


: ER 
1 FR 


DUP -10 27 BETWEEN 
IF  OPREP 
<# 8 EXP @ - O MAX 
FIX @ ?DUP 
IF O MAX 8 MIN 2DUP MIN >R - DUP 
O< IF ABS O DO ASCII O HOLD LOOP 
ELSE O ?D0 10 MU/MOD ROT 5 > 
IF 1 O D+ THEN 
LOOP 
THEN R> ZFLG OFF 
ELSE %FLG ON 
THEN 
O ?D0 #F LOOP 
RFLG @ IF %FLG OFF ELSE ASCII . HOLD THEN 
BEGIN #F 2DUP OR O= UNTIL 
RASGN @ O<> SIGN 
#> 
ELSE (E.) THEN ; 


(E.) TYPE SPACE ; 
(F.) TYPE SPACE ; 


>R (E.) R> OVER 
>R (F.) R> OVER 


SPACES TYPE ; 
SPACES TYPE ; 


À 2e OR OR RON RE 
\ fonctions transcendantes 


\ ae he mte De 3e 1e 6 ee 2 D fe ce Dee ee D DH DE De De C3 D D D D DK DK 3 D 38e D ÉD DE DEA IG D DECHE EC I DIE MIE HEC 


: FSQR 


: F1/X 


: DEG>RAD 
: RAD>DEG 


: (SIN) 


: SINFN 


: FSIN 


: FCOS 


: (TAN) 


: FTAN 


: ARCFN 


: ATFN 


: FASIN 


: FACOS 


: FATAN 


1 FLN 


3 ?ENOUGH 2 PICK 2 PICK OR 
IF OVER 0< 
ABORT" racine carrée d'un nombre négatif" 
O SHWAP ZN ! FDUP %F F1! 
23781 19338 O F* 
-11264 27348 -1 F+ ZY1 F! 
2 O DO ?F F@ 2Y1 F@ F/ ZY1 F@ F+ 
1- ZY1 F! LOOP 
2N @ 1 AND IF ZN 1+! ZY1 F@ ZSQR.5 F* 
ELSE %Y1 F@ 
THEN 
ZN @ 2/ + 
THEN ; 
1 FSWAP F/ : 
2180 F/ PI F* : 
2180 F* PI F/ : 
FDUP FDUP F* FDUP 
21489 26278 -25 F* 
-22679 23644 -18 F+ FOVER F* 


-340 -26631 -12 F+ FOVER F* 
17224 17476 -6 F+ FOVER F* 
-21843 -21846 -2 F+ F* %1 F4 F* ; 


FDUP -8192 25735 18 F> 
ABORT" dépassement trigonométrique! 
FOUP 1/PI F* 
FINT FDUP F>S ZN ! 
PI F* F- 
FDUP PI/2 F> 
ÏIF PI F- ZN 1+! THEN 
(SIN) ZSGN @ ZN @ 1 AND IF NEGATE THEN 
O< IF FNEGATE THEN ;: 
DEG>RAD FSIGN IF -1 ELSE 1 THEN ZSGN ! 
SINFN ; 
DEG>RAD PI1/2 F+ FSIGN IF -1 ELSE 1 THEN ZSCN ! 


SINFN ; 

FDUP FDUP F* FDUP 

12781 19958 -6 F* 

24066 24331 -8 F+ FOVER F* 
23774 25758 -5 F+ FOVER F* 


24849 27983 -4 F+ FOVER F* 
567 17484 -2 F+ FOVER F* 
13558 21845 -1 F+ F* 71 F+ F* ; 
DEG>RAD FSIGN ZSGN ! FDUP 
-8192 25735 18 F> ABORT" dépassement tangente!" 
FDUP 2/PI F* FINT FSWNAP FOVER PI/2 F* F- 
FDUP PI/4 F> IF PI/2 F- (TAN) FSHAP 71 F+ 
ELSE (TAN) FSWAP 
THEN 
F>S 1 AND IF F1/X FNEGATE THEN 
RASGN @ IF FNEGATE THEN ;: 


FDUP 

-5628 -21182 -9 F* 

25269 27976 -7 F+ FOVER F* 
-13001 -17919 -5 F+ FOVER F* 
31784 32392 -5 F+ FOVER F* 
14038 -26306 -4 F+ FOVER F* 
20163 23325 -3 F+ FOVER F* 
6939 -28128 -2 F+ FOVER F* 
-4808 25735 1 F+ FSWAP 71 


FSWAP F- FSOR F* ; 
FDUP FDUP F* FDUP 


-23342 24043 -8 F* 

-231 -16952 -5S F+ FOVER F* 
—289 22496 -4 F+ FOVER F* 
17866 -19737 -3 F+ FOVER F* 
-15957 27934 -3 F+ FOVER F* 
7296 -18624 -2 F+ FOVER F* 
-3476 26205 -2 F+ FOVER F* 
-13768 -21846 -1 F+ F* 21 F4 F* ; 


3 ?ENOUGH FSIGN ZSGN ! ARCFN PI/2 FSWAP F- 
ZASGN @ IF FNEGATE THEN 

RAD>DEG ; 

3 ?ENOUGH FSIGN ZSGN ! ARCFN 

RSGN @ IF PI FSWAP F- THEN 

RAD>DEG ; 

3 ?ENOUGH FSIGN ZSGN ! FDUP %1 F> 

IF F1/X ATEN P1/2 FSWAP F- 

ELSE ATFN THEN 

RSGN @ IF FNEGATE THEN 

RAD>DEG ; 

3 ?ENOUGH 2 PICK 2 PICK OR O= 2 PICK O< OR 
ABORT" logarithme impossible" 

1 SWAP 1- ZN ! 21 F- FDUP 


-8219 -27069 -7 F* 
-15445 18920  -4 F+ FOVER F* 
-1809 -24991  -3 F+ FOVER F* 
-16097 21974  -2 F+ FOVER F* 
-30256 -31554 -2 F+ FOVER F* 
-14355 21744  -1 F+ FOVER F* 
16346 -32760  -1 F+ FOVER F* 
-7680 32767 O F+ F* ZN @ S>F 
3066 22713 O F* F+ : 
FLN -5035 28461 -1 F* ; 
FDUP  ( primitive : ne pas utiliser ) 
19334 31294 -10 F* 
13450 21432 -8 F+ FOVER F* 
24130 18267 -5 F+ FOVER F* 
-9172 19123 -3 F+ FOVER F* 
-4108 16671 -1 F+ FOVER F* 
23960 21716 O F+ FOVER F* 
-14364 18862 71 F+ F* 
R1 F+ FDUP F* : 
FDUP  ( primitive : 
-8250 -18968 -12 F* 
-18510 22311 -9 F+ FOVER F* 
-13978 -17410 -6 F+ FOVER F* 
29320 21840 -4 F+ FOVER F* 
-10120 -21846 -2 F+ FOVER F* 
-342 32767 -1 F+ FOVER F* 
2 -32768  O F+ F* 
21 F+ F1/X ; 
3 ?ENOUGH FSIGN ZSGN ! FDUP 
0 25600 8 F> ABORT" dépassement ALN" 
FOUP 7572 23637 1 F* FDUP F>S ZN ! 
FINT 3068 22713 O F* F- 
E°X ZN @ + ZSGN @ IF F1/X THEN ; 
3 ?ENOUGH FSIGN ZSGN ! FDUP 
0 25344 7 F> ABORT" dépassement ALOG" 
FDUP 15402 27213 2 F* FDUP F>S ZN ! 
FINT 19775 19728 -1 F* F- 
107X ZN @ + ZSGN @ IF F1/X THEN ; 
4 ?ENOUGH ?DUP 
IF DUP O< ZFLG ! ABS >R 71 FSWAP R> 
BEGIN DUP O> WHILE 
DUP 2/ DUP 2* ROT - 
IF >R FSWAP FOVER F* FSNAP R> THEN 
>R FDUP F* R> 
REPEAT 
DROP FDROP Z%FLG @ IF F1/X THEN 
ELSE FDROP 71 
THEN ; 
6 ?ENOUGH OVER 3 PICK OR 
IF OVER O< >R FABS 
FDUP FDUP FINT F- ZSTK1 F! 
F>S >R FDUP R> FX°N FSWAP 
RASTK1 F@ OVER 3 PICK OR 
IF 4 PICK O< ABORT" X°Y complexe! 
FSWAP FLOG F* FALOG F* 
ELSE FDROP FDROP 
THEN R> IF F1/X THEN 
ELSE FDROP FDROP 71 
THEN ; 


: FLOG 
: 10"X 


ne pas utiliser ) 


: FALN 


: FALOG 


3 FXN 


3 FX°Y 


VOCABULAIRE F-PACK 
VIRGULE FLOTTANTE 


F-PACK est un module F83 de gestion des nombres en 
virgule flottante adapté du ‘Forth portable floating 
point package" du domaine public proposé en fig par 
MicroProcessor Engineering Ltd Southampton. 


L'écriture en est entièrement en Forth F83 pour permettre 
une portabilité facile et pour autoriser sa réécriture 
dans une précision supérieure en suivant les mêmes 
algorithmes. 


Pour autant que la rapidité puisse être un critère quand 
on choisit le calcul en virgule flottante, certains mots 

pourront être  redéfinis en code. Vous constaterez 
toutefois que le Forth est bien un langage rapide puisque 
les performances de ce module sont très honorables sans 
code machine ni coprocesseur. 
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Les nombres flottants sont codés sur 48 bits directement 
exploitables sur la pile paramètres du Forth. Is 
occupent donc 3 cellules de la pile à la manière d'un 
calcui en "triple précision", On trouve ainsi toute une 
série de mots tels que FDUP FDROP FOVER FROT qui 
manipulent la pile par ensembles de 3 cellules. 


Un nombre flottant est défini par son signe sur 1 bit, sa 
mantisse sur 31 bits, ces deux derniers formant Îles 32 
premiers bits soit deux cellules, et enfin son exposant 
en puissance binaire entière signée dans la dernière 
cellule de 16 bits. On utilise Ta technique de Ja 
mantisse normalisée à gauche qui consiste à cadrer tous 
les bits significatifs comme derrière une virgule 
imaginaire en précisant dans l'exposant Île rang de la 
puissance 2 de la partie entière. 


Ainsi le nombre 10 s'écrit 1010 en binaire ce qui donnera 
comme flottant : 


signe 0 
mantisse .1010000000000000000000000000000 ( 31 bits } 
exposant © =4 


le nombre flottant 10 s'écrira sur la pile 


0000000000000000 

0101000000000000 

0000000000000100 
c.a.d : 0 20480 4 
I1 n'est bien sûr pas nécessaire de comprendre Île 
complexe codage des nombres flottants ainsi que les 
opérations requises dans les calculs pour manipuler ces 
flottants aussi facilement que des entiers simple 
précision sur la pile. 


Ce type de codage autorise une précision de neuf chiffres 
significatifs avec une gamme d'exposants en base 10 de 
-99 à +99. 


I1 existe un grand nombre de façons de déposer un 
flottant sur la pile : on a cherché à rester Île plus 
simple possible au regard de la syntaxe Forth. 


1) à partir d'un entier simple précision 235 S>F donne Île 
flottant 235 ou 2.35E+2. 


2) à partir d'un entier double précision 235. D>F donne 
également le flottant 235 notez toutefois que 2.35 donne 
toujours 235 car le point n'est pas significatif dans un 
nombre double précision. 


3) avec la séquence ‘nombre E exposant FLOAT' 2,35 E O0 
FLOAT donne le flottant 2.35 235 E -2 FLOAT donne aussi 
2.35, Notez que cette séquence prend en compte la 
position du point décimal dans le double précision avant 
E. 


E agit également sur un simple précision ce qui rend Île 
point facultatif à condition de ne pas entrer un nombre 
dépassant +/- 32768 limite des entiers simple précision. 
E est obligatoire avant FLOAT et les quatre éléments de 
cette syntaxe doivent évidemment être séparés par des 
espaces. 


Cette interprétation post-fixée n'est pas Valide pour la 
compilation des flottants. 


4) avec F' F' 2.35 donne 2.35 
F' 2E2 donne 200. 


Cette interprétation pré-fixée est Ta plus pratique. F' 
interprète le mot qui le suit comme un flottant. Ce mot 
ne doit pas contenir d'espaces mais peut contenir des 
indications de signes. Le point décimal est facultatif 
dans la mantisse avec la même restriction que pour E. 
F' est utilisable pour la compilation d'un flottant. 


Les écritures suivantes sont valables : 


F' 34.03E-2 
F' -140E+2 
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F' +34.34567 


F' +2E+20 
F' 3 
F' 345678. 


5) à partir d'une chaîne explicite " 34,56E-2" VAL donne 
le flottant 0.3456. 


Les règles sont les mêmes que pour F' notamment en ce 
qui concerne l'absence d'espace dans la chaîne numérique. 


Pour l'affichage des flottants, E. affiche Je flottant 
sur la pile en notation scientifique c'est à dire avec un 
seul chiffre avant la virgule et la puissance de dix : 


F' 345 E. affiche 3.45E+02 


alors que F. l'affiche en notation décimale usuelle : 


F' 34,5F. affiche 34.5 

La variable FIX permet en outre d'utiliser F. pour un 
affichage en virgule fixe, pratique pour aligner la 
virgule. Quand FIX est OFF (égal à zéro) l'affichage est 
libre avec toutes Îles décimales significatives. Si FIX 
est à n, le nombre affiché comporte obligatoirement n 
décimales: 


FIX OFF F' 2 F. affiche 2 
F' 2.347 F. affiche 2.347 
5 FIX ! F' 2 F. affiche 2.00000 
F' 2.347 F. affiche 2.34700 
2 FIX ! F' 2 F. affiche 2.00 
F' 2.347 F. affiche 2.35 


Si F. ne peut afficher un nombre trop petit ou trop 
grand, c'est l'affichage scientifique qui est donné. 
Enfin E.R et F.R rappellent .R ou D.R pour un affichage 
cadré à droite: 


F' 2.35 10 F.R affiche ‘ 2.35 
F' 2.35 10 E.R affiche ' 2.35E+00" 

On utilisera les primitives (E.) et (F.) pour traiter des 
flottants comme des chaînes, exactement comme (.) ou (D.) 


en F83 standard. 

Le vocabulaire F-PACK contient un ensemble homogène 
facilement compréhensible de fonctions et opérateurs sur 
les nombres flottants: 


1) manipulation de la pile 


f FDUP f f 
f1 F2  FOVER F1 F2 f1 
f1 F2 F3  FROT f2 F3 f1 
f1 F2 FSWAP F2 fl 
f FDROP 
2) conversions 
n S>F f 
d D>F f 
f F>S n 
f F>D d 
3) tests 
f FO= f1 


f  FO> fl 
f FO< f1 


f1f2 F- #1 
f1f2 F> fl 
f1f2 F< fl 


4) opérateurs dyadiques 


F1 $2  F+ f=f1+f2 

f1 F2  F- f=f1-#2 

f1 F2  F* F=f1*f2 

f1 F2  F/ f=#1/f2 

f1 F2  F/MOD f3-f1-fF2*int(f1/f2) f4-f1/F2 
f1 F2  FMOD F3 ci dessus 


F1 F2 FXCY f=f1"f2 6) compilation et divers forth 
fin FX°N f2=f1"n 
f1 F2 FMIN f=min(f1,f2) f FLITERAL en compilation : compile f 
f1 f2 FMAX f=zmax(f1, F2) f FCONSTANT <mot> , 
à exécution de mot : --f 
5) opérateurs monadiques FVARTABLE <mot> , 
à exécution de mot : --adr 
FNEGATE f'=-f f adr F1 
FINT f'=int(f) adr F@ f 
FABS 
FSQR 7) constantes et variables 
F1/X 
DEG>RAD f-constantes 70 %1 %.1 410 PI PI/2 %E 
RAD>DEG f-variables FST1 FST2 FST3 
FSIN '=si utilisables en accumulateurs 
FCOS = temporaires 
FTAN 
FASIN  f'=arcsin f 
FACOS f'=arcos f Nous ne voudrions pas terminer cette présentation de 
FATAN f'=arctan f F-PACK sans vous rappeler Ja devise: FLUCTUAT NEC 
FLN f'eln(f) MERGITUR. Les flottants c'est bien mais ne vous laissez 
FLOG f'=log(f) pas submerger. Forth est beaucoup plus à l'aise avec 
FALN f'=e"f des entiers et voyez toujours si votre application ne 
FALOG  f'=10"f serait pas plus puissante avec une écriture en entiers ou 
en virgule fixe: vous y gagnerez notamment en rapidité. 


f 
f 


f 
f 
f 
f 
f 
rad 
f 
f 
f 
f 
f 
f 
f 
f 
f 
f 


COURRIER: TURBO-FORTH, UN STANDARD? se RSR de piloter un CRAY-1, mon cher Jaccomard, je 

TE ne cherche qu'à travailler vite et bien. Les 15 jours 
En tant que co-auteur de TURBO-FORTH, j'aimerais faire d'apprentissage de WP sont amortis depuis Longtemps! 
part ici de quelques réflexions d'ordre "philosophique"! : | | 

; Mais nous irons encore plus Loin dans L'ouverture. 
FORTR n'est probablement pas un Langage, encore moins un a 
standard: c'est plutôt un état d'esprit, un concept. Un que que je m'appliquais à écrire pur Turbo La 
BASIC est un AUTE qui eut son ou 585 standards: on à gestion des fichiers en accès direct avec champs et tout, 
fait des merveilles avec des G6O0SUB 13440. Et puis on me voyant De L'heureux concepteur de FBASE-III, mon 
s'est aperçu que La programmation structurée faisait collègue PETREMANN que S'y connaît eut cette remarque 
gagner du temps au A DE Où est maintenant Le sans ape "d8ASE III/III#C/IV?) est IN-CON-TOUR-NA- 
Standard BASIC? Un standard ne vit que Le ue où il est BLE!", Le standard c'est donc Lui: ou Turbo importe, 
reconnu comme Standard, Le temps qu'un autre standard traite et exporte l'environnement dBASE, ou on en reste 
prenne 5a place. Ha à L'excellent FBASE-II, On ne peut être plus 
clair, 


L'esprit FORTH est tout autre: s'adapter d'une façon RE ; 
naturelle (mais oui, La Logique polonaise d'une pile est Quand au standard Forth Lui-même, il n'est pas question 
naturelle: comment Croyez-vous je font tous Les autres pour l'instant de renier F83. Nous avons constamment 
Langages ‘dedans”?), RU onc à tout ce qui fait cherché à respecter L'esprit et La Lettre de F83 dans 
une machine dans un Seul but: développer au plus près, TURBO-FORTH, au pr même parfois de quelques concessions 
vite et bien. à L'ancêtre. Et Si nous avons ajouté de nouveaux 
; | concepts, ils restent droits dans La Ligne du standard. 
Un ordinateur est un ensemble d'adresses, un ou DRE Ainsi, Le concept du SEKECUTE réentrant achève La mise à 
processeurs, un environnement, un Système d'exploitation mort d'une dichotomie surannée entre interprétation et 
et des programmes. Vouloir en faire abstraction relève de compilation que Forth a toujours instinctivement refusée, 
La science théorique: La machine de TURING est . 
certainement capable elle aussi de calculer Les Nous comptons bien que dans cing ans TURBO-FORTH MS-D0S 
transformées de Fourier... soit totalement dépassé face aux nouveaux concepts qui ne 
| | . : vont pas manquer d'apparaître. Probablement sommes-nous 
IL n'est plus possible aujourd'hui de considérer un déjà à La traine. Mais nous avons L'outil et L'esprit: si 
Langage informatique comme uñ aus Esperanto de La L'avenir est par Là, donnez-nous un 386, un mois tous 
ON EU Avec TURBD-FORTH MS-D05, nous sommes frais payés aux AE un bon manuel sur ce qu'il y 
partis plus modestement d'une machine donnée, d'un à dans La bécane et son DOS et nous vous métacompilerons 
Système d'exploitation qui est ce qu'il est, et d'une un “FULL-SPEED-FORTH-0S/2-Windows-machin" en bien moins 
couche Logicielle formant un ensemble qui LUI s'est de temps qu'il n'en faut à Borland pour sortir un TURBO-C 
imposé comme un standard de fait. bogué. 


Nous avons abandonné Le concept Forth des blocs: il Et croyez-bien qu'il ne s'agirait absolument pas d'un 
partait du principe pré-CP/M que Forth devait posséder  Forth “tournant* sous 0S/2: ça n'aurait aucun intérêt. Qu 
son propre système d'exploitation des secteurs du disque. alors à quoi bon acheter un tel système? Ce Forth 
Pour gérer quoi? Mieux qu'un véritable 005? AL n'aurait qu'une partielle ressemblance avec L'ancien: Les 
sérieux et cessons de nous enfermer dans une tour principaux mots étant bien évidemment Les plus 
d'ivoire où il nous faut sans cesse ré-inventer La roue.  Spécifiques du nouveau ...standard! 
TURBO-FORTR fait allégeance au standard M5-00S et à tout ; 
son environnement: c'est ça La vraie magie de l'esprit Franchement Le F83 est RES sur mon ATMOS (normal: 
Forth. c'est moi qui l'ai métacompilé!). Mais d'emblée RE 
: refusé pour mon PC un standard qui tourne tout aussi bien 
Nous avons abandonné l'éditeur interne: venez me voir sur mon vieux 8-bits. Logique non? Comprenez-moi: je ne 
programmer mon TURBO-FORTR configuré WordPerfect avec ses dis pas qu'il faille Sans cesse sacrifier aux derniers 
macros et je ne vous donne pas cing minutes pour vous cris à La mode (salut amical à tous Les oriciens qui ont 
exclamer “révolutionnairel®. Et croyez bien que je si bien alimenté Le numéro 40 de JEDI et prouvent ainsi 
n'étais pas peu fier de mon éditeur plein-écran de blocs! que La valeur n'attend pas Le nombre des Kilo-actets), 
Seulement voilà, WP est WP: combien de temps me faudrait- | 
il pour faire Le dixième de ce qu'il fait? Je n'ai pas suite page 12 
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Objectifs Calcul en quadruple précision, 
Langage’ Assembleur 4502 et F83 
Matériel ATMOS mais... 

date: 15/1/38 


Quadruple précision 


Si Forth ne connait pas pour le PS3 les nonbres flottants. il sait faire des opérations en double précision. Cela peut 
suffire dans bien des cas mais nas toujours. Le but de ces quelques écrans est de pousser la balle un peu plus loin en 
lui apprenant la quadruple précision, Il s’agit donc de faire des calculs sur 4 aots de 14 bits . 
Attention-tous les calculs ne seront pas possibles-on garde la logique: jusqu'à présent D { 3bjite + 32 bits) n'egistait 
pas: il va exister maintenant mais pas x (44 + 64 bits) car le résultat pourrait aller jusqu’à 122 bits. 
Logique tout ça ! 
25072 4 GONG , Prenez donc votre calculatrice ! 
Commençons par la fin! Ecrans 8 et 9 
fs contiennent le nécessaire pour que l’interprêteur puisse reconnaître des nonbres quadruples, 
Jusque là il sait reconnaître des nombres doubles et tous les calculs effectués par NUMBER sont doubles, Il faut donc ré 
gcrire ces mots, 
À ce propos: tout Le monde sait rentrer directement un noabre double par 29, ou ,23 ou 2,3 par exenple, Il faut dons 
aussi un caractère de reconnaissance pour les quadruples, Vous savez tous (mais pas moi qu'en fait F93 à 4 symboles 
pour les doubles f:,-/} maintenant il n'en aura que trois (,,-) car j’ai réservé Le symbole (/} pour ces nouveaur nom 
bres, 123/ met sur la pile 4 mots de {46 bits 1230 0 0 
Ce symbole / est prioritaire dans le sens que 1234/4954, oct un nonbre 44 bits conme 122,4%4/ mais 123.456 peste double. 
Les mots CONVERTS (NUMBERT2) et NUMBER?S sont donc les nouveaux mots qui permettent de rentrer ces nombres Tous les val- 
cuis internes sont sur 64 tits, 
Ensuite ça se corse, Comment tout faire sans en faire de trop ! Normalement à la sort 
Le mot INTERPRET enleve la partie haute si le nombre est un simple précision : 
chaque fois la question DOUMET.les mots ne sont pas vectorisés d'où difficulté. 
La solution que j'ai prise fait La moitié du travail en sortie de NUMBER. Et vive la vectoristion, 
La variable DPLZ prend le caractère de recormaissance ce qui permet de le tester après, NUMBER teste alors ce caractère 
et ’droppe” la partie 32 bits haute si DL ne contient pas ‘/?, 8j c’est un nombre 44 bits pas de problème. il reste sur 
la pile mais second problème * en compilation, [i aurait fallu un mot QLITTERAL permettant de compiler ce nombresbranché 
dans Ie not 7. Je teste le cas toujours dans NUMBER et j'en compile alors La moitié;l’autre moitié le sera par ]. 
Une définition du style : ESS 1234567060/123 967454/124 14 0, : est alors parfaitement valide, 
Fi y a cependant autre chose qui ne me plait guère mais j’en renvoie la faute à d’autrestln not 44 bits va occuper 14 oc 
fets en compilation car il est compilé conne 4 mots 16 bits précédés chacun de LIT qui permet après de le retourner sur 
Ja pile (Chez nous on a aussi CLIT on gagne 1 octet}, I] aurait été plus interessant d’avoir un not ALIT permettant de 
compiler fout en une foissmais puisque DLIT n'existe pas non plus. Dans le cas de LIT on gagnerait à chaque fois & oc- 
tete ot 2 pour DLIT, 
Note Evidemment / n’est pas un nombre A4 bits puisque ce mot existe ,Le oroblbme existait avant! Faire 2// ou 02/ etc, 
Les primitives de base en asseñbleur 
Jai voulu en faire le avins possible tout en gardant une certaine rapiditésmais tout serait possible et certains mots y 
gagneraient conne GÙ/MOD et les comparaisons, Mais enfin: On travaille er forth : 
Elles sont: 
UG/MOG (ug dividende, nd diviseur ------ 1g quotient sud reste } 
ressemble à UM/MOD bien qu’il ne sorte pas la ame chose comparativement, Il s'agit donc de la division non si- 
gnée. Attention le reste sort en prenier, 
La difficulté est que le 6S0 ne travaille que sur des octets et qu'il y en à 6 au total, Ca fait beaucoup mais 
j'ai réussi à ne pas trop gaspiller de mémoire. J'utilise la zone de travail interne de AS à AB notée N-1.N... 
UCEe {ud muitiplicande-ud aultiplicateur ---— ua produit } resseghle à x, 
ATROP (q -——- } où tnisnénind —-- ) 
g+ {qi ; qé -—- gitq2} ressemble à D . 
QNEGATE (qi -—- -gi } ressemble à DNEGÂTE 


tie de NUMBER les nots sont doubles, 
le not ] compile de méme en posant à 


Les autres opérations Ecran 5 
49 (dis di -—- q} est la multiplication signée qui correspond à 


Cette opération suit la règle des signes normalement. 

Elle n'a quand mûne fait aettre Le doigt sur un probléme: le mot PIE, ETF je pose une question sur notre bible à 
toust Le livre FORTH-83 STANDARD écrit par l'excellent M.FETREMEAN le non moins excellent J-M FREMESNIL et le 
génial (gui travail ait sur ATEN LPAN de Lis p 3 entre autres À PICK esf équivalent À DUP .Je <herche 
dans le source LAXEN et FERRY dans C'KERNELSE BIKE écran 114 For exasple;if fhe sfack has 1 2 7 fhen 0 PICK js 3 
Alors fitit 
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AU/MOD (gt. dt -— qi. d2t ect la division signée 
8 quotient 44 bits suit la règle des signes et le reste est toujours du même Signe que Le diviseur et comme dit 
fautret Division js flocred Ca y'en à vouloir dire que ça fait a jai 
2 7, AMIS D, 4, 13 22! -7, QU/MOD D, à, -£4 -4 
#7, SN/NOD D, N, £& -4 “22 -7, QU/MOD D. à. é 3 
C'était im es délicat 3 écrire, [1 y a un monde fou sur les pilestça rentresça sort et ça marche. 
7 et G/MOD sont les divisions signées qui délivrent Le premier Le quotient (gédi }’autre le reste (d32) 
soustraction, 
affichage écran 4 
1! qui fout 4 fait la 
d’une vingtaine de chiffres, il n'y a pas de problème. 
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ogique habituelle qui À 


à afficher Come Le masiqum peut tre 


Je, affiche un nombre non sioné : Essavez -1/ UD, Ouah ça jette 
U. affiche le mme mais signé : Essayez -i/ Q, Tiens ca fait -1 1 
BR affiche un nonbre sion4 dans un chamn justifié 4 draite. if 20 GR 


On pourrait faire MUR mais ne figure pas Ici (,) ROVER - SPALES TYPE 


BRES donne la valeur absolue, 

DD permet de passer un double sioné en guadrüple signès -{, DS est éguivalent 

SM permet de casser un simple signé en quadrugle ne “1 Go est équivalent 
Les comparaisons doubie et simple précision ecran & et 7 
fci figurent aussi celles en double précision qui existent déjà en standard FX mais ne figurent pas pour mon ATMOS, 
[abord les mots de fraficotage de pile! 2ROT 4SWAP AOVER BOLF sas nystère, 


UG= {og -——- fi compare Le 44 bits À zéro et sort un flag en conséquence 


Br fr 


Be (gligf -— f} compare deus nombres 
BCS (gi -- f} crend le contraire de fe 
BU ( ql:qi -— #) compare deur 44 bits non signés entre eux 


Beat HD gl: - fl compare deur 64 bite signés 
BMIN st OMAN retourne le minimum ou Le maximun de deux 44 bits signés 
AVARIAELE crée une variable capable de prendre un nombre 64 bits grace aux mots 4! at 4 
+! permet d’incrémenter une variable 44 bits directenent. 
ext AUSRIARLE ESSAI 12/ ESSAI 4! 347 ESSAI Oti ESGAI 48 À. affiche 4 
Attention le nombre à incrémenter doit 8tre un 64 bits -» 34/ 


Voilä.Bon maintenant on attaque la précision 8 puis 14.., Je vais commencer à me F ser Ù 
calement Jean-Lui SIRET 


B-GUACRUPLE .FTH / SCRN# 1 A-GUADAUPLE .FTH / SCRN# 2 
9 \ Division 64/32-> 64q 3èr \ Lex he 44 
1 ONLY FORTH DÉFINITIONS ALSD HEX CODE UOx & .X LDA: A4 IL & :X STY: 
2 CODE LO/MOD 2 ,X LDA: A6 STA; 2 :X STY: 3 :k LOA, 47 STA 7 :X LDA; 47 STA; 7 ,X STY, 
3 3:X STY: OX LA: AS STA: 0 :X STV. 4 :X DA. AB STA: … À STY, 
4 1 :X LDA: AS STA, 1 .X STY, AS STY. 5 X LDA, A ST 5 »X STY, 
5 40 # LDV: BEGIN. 20 # DV: BEGIN, 
il & À >X ASL.: B sÂ RÈL.: 5 À ROL; $ À RL: b À AS! + 7 sÀ RL: :X RÛL: 3 ë RÔL > à. 
| L & :X RÜL, X AD, 4 ,X RD, 5 . RL: ZX RL, ZX RO, OX RO, 1 K AOL, CS IF, EC. 
i 5 2 -X ADL: 3 . RL DUR, x RÔL, AS RO A4 LDA. 4 ,X ADC, 4 “ STA; A7 LDA: 7 2K ADC: 7 :X STÉ: 
9 SE: Lx 5 S. 3:X LEA. A7 5 À: A£ LDA. 4 E AL: 4 :X STA. Aÿ LDA: 5 .{ AC. 9 ,X STA, 
15 Û : 1 :X LDA, A9 SR Q # LDA: 2 :X ADC: 2 .X STA, 
ii 5 THEN: FEV. O= INTIL, NEXT JM. HR 
12 
| 13 CODE 4DRE 5 ns ae BEGIN, INX, DEV, O= ENTIL: 
| 14 : FLA NEXT JM du 
i EXT M Fer ES 


À LA LCA, É VE 4 M LE Lo AD, CU ST +0 T . 
À LOA DK AD. D .X A: & :X LDA: À :X AC, 4 .K STA. : Eo$ DÙF OC UF : 
3 ,X LD Ë :X AD, B:X al LE, EX AN, SX GTA, à S 29 DUP 0€ DUP DUF ; 
= L ,X LEA 9 :X AD, 9.) RO 2 2+ JM, ds : F Ro R> SUP : 
L EGATE 27, TVA; 1. LE ; MOD DROF 9 OVER < IF 7 + THEN 49 + HR s 
ù 7 Li / 3 À ni ; 
À a : OP 2DROF HD € FAD OVER - : 

È | : Hi 2 FOR A 2IVER CR Rè OR Où IATIL : 
3 re : | 
I — - 


É 
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A-QUADRLFLE ,FTH / SCRNE 3 
\ +0 GU/MOD Multiplication et division signees 
: «8 DUP 3 PICK XÜR À DAES ZCUAF DABS LG R> TONEGATE : 
: SU/MOD À PR DUF OR DABE R> Ro A} 2DUP 2R 28 DIP 3R DARS 
ROT RO KOR R UG/MOD 2DLP OR = 
IF RD OC IFR 2R ONEGATE R> R> THEN 
Rè R> R>2DRP DROP 
ELSE R> O IF GA A ONEGATE -f -1 -1 -] G+ R5 R5 
Rè OK IF Ro Ro D 
ELSE R> A2 2SHAP DNEGATE D+ THEN 
ELSE RD © IF DNEGATE THEN Rà Ro ZDROF 
10 THEN THEN : 
15 @/  QU/MOD 2DROP : 
12 : G/MOD QU/MOD 2RAT 2ROT ADROP : 
13 : 4DUP 2ÛVER AVER : 
{4 : 45K8F 2ROT DR GR 2RÛT R> R> : 


CA BEN TS re D 


DehsReEc 


A-QUADRUPLE .FTH / SCRNK 7 

0 À 20:21.40,4'.rconstant tvariable,D+!,5+1..,,, 

5 ONIN 4P D IF 2SWAP THEN 2DRO : 

5 OMIN SDF Q> IF 4SNAP THEN 4DROP : 

5 DMOX 4DLP IK IF 2SWAP THEN 2DRCF : 

: OMAX 8DLP OX IF 4SWAP THEN 4DROP : 

: 2e DUP @ SWAP 2+ R SWAP : 

: 48 IP 26 OT 4 + 2€ : 

5 2 RP -ROT ! 24! ; 

1 AU SR 2SM0P RE RD 4 + 21: 
ZCONSTANT CREATE : : D0ES) 20 5 

5 ACONSTANT CREATE 2SHAP : : : à 5} 

ï ZVARIABLE 9 Q ZCONSTANT DDES 

12°? AVARIARLE 0 0 0 0 ACONSTANT DOES: 

13 3 Et! DUP DR 20 HR 21: 

14 5 Q+t DUP PR 46 Et Ro 41: 

15 —} 


a Te D D ON Se NO 
_. 


murs 


-QUADRLPLE .FTH / SCRNH 9 
{ 0) \ Modification de NUMBER 


{ 1) ? (NUMBER?) NUMBER?2 NOT 2MISSINS DOUBLE? DPL2 @ ASLIT / = AND 


{ 2) JF STATE & IF 2SWAP CCOMPILE] DEITERAL THEN 
( 3) ELSE 2DA0P THEN ; 
{ 4 

{ 5) 

à 7 (NUMBER2) 15 NUMBER 

à ONLY FORTH DEFINITIONS DECIMAL 
(30) 

(11) 

(12) 

(13) 

{14) 

(5) 


suite de ta page 5 


mais Le PC, puisque PC il y a, et Forth puisque esprit 
il est, ne peuvent raisonnablement cohabiter que dans 
quelque-chose qui ressemble un peu à TURBO-FORTH! 


Vous avez dit standard? Quel standard? 


bien Forth à vous, Michel ZUPAN, Mars 88 
67800 HOENHEIM 


COURRIER: J'ai déja apprécié Le F83, puis Le TURBO-Forth 
évaluation) et c'est avec joie et impatience que je vous 
écris aujourd'hui pour vous demander de bien vouloir 
m'envoyer La version définitive de TURBO-Forth 
CMI+M24M3)... 


TURBO-Forth est vraiment formidable. L'ebjection selon 
Laquelle il était je aisé de mettre au point en 
compitant bloc par bloc n'est pas réelle. J'ai moi-même 
expérimenté La possibilité de compiler un gros programme 
sous La forme de petits fichiers ASCII que j'ai ensuite 
rassemblés Lorsque tout était au point. 


André CHERAMY - 75005 PARIS 
COURRIER: LES PROGRAMMES ECRITS EN FORTH 
On me demande parfois si FORTH est réellement exploité 
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A-GUADRUPLE .FTH / SCRNE 6 
\ Conparaisons doubles et quadruples 
5 OVER R RO OR ADUP AR R> R> RD 45 : 
: BOUP AOVER 40VER ; 
: D- DNEGATE Dh : : Q- ANEGATE O+ : 
ï 5: QG OR OR OR (E ; 
Ë ! : Le @- 00 : 
: DK} D= NOT : 1 8) &= NOT : 
5 DU AOT SHAP COUP UK IF 20RDP ZDROP TRE 
ELSE <> IF 2DRCP FALSE ELSE LK THEN THEN : 
: QIK 2ROT 2SMP 4DUP DLK IF 4DROP 40ROP TRUE 
ELSE IK} IF ADROP FALSE ELSE DK THEN THEN : 
t D 2 PICK OVER = IF DK ELSE NIP ROT EROP £ THEN ; 
: 8€ 5 PICK 5 PICK 2OVER Ds IF MK ELSE 2SWAF 2DROP 
ZROT 2DROP Dé THEN : 
: D> 26WAP K : : 8 4SWAP Ke : 
—ÿ 


A-QUADRUPLE .FTH / SCAN# 8 

\ Modification de NUMBER 

VARIABLE DPL2 

5 CONVERT2 BEGIN i+ DUP >R C6 BASE 8 DIGIT WHILE 
0 26H6P BASE © 0 Ile 2DROP 2ROT BASE € 0 Lx 4 
DOUBLE? IF 1 DPL +! THEN Ro REPEAT DR KR : 

5 (NUMBER?2) OPL2 OFF Q O ROT 0 © ROT DUF i+ CE 
ASCII - = QUP DR - -1 DPL ! 
BEGIN CONVERTZ DUP C6 ASCII : ASCII / HETHEEN WHILE 
DPF Ce DFL2 E MAX DPLZ ! O DPL ‘ REPEAT 
R IF ?R QNEGATE R> THEN C@ EL = : 

3 NUMBER?2 FALSE OVER COUNT BOUNIS SEUP : 
IF 00 1 C8 BASE © DIGIT NIF IF DROF TRUE LEAVE 
THEN LOOF THEN 

IF (NIMBERT2) ELSE DROP O 0 Q Q FALSE THEN : 


dans Le domaine professionnel. Je cons: oui! Beaucoup 
en autonatisme industriel, Mais il existe aussi des 
Logiciels prestigieux écrits en FORTH, dont: 


VP-PLANNER Cclône de LOTUS 123) 
RaPIDfiLe ERSYMRITER 


NEON POSTSCRIPT 

et d'autres moins connus: 
DELTA DRAW GAME DESIGNER 
EXPERT-2 STARFLIGHT 


RACE CAR SIMULATOR 
PRO 30 DELTA DRAW 


Cette Liste n'étant pas Limitée. Je tiens à remercier Mr 
F.CANNARD pour La doc concernant Le NOVIX NC4016 et Mr 
L.MOREAU pour Les extraits d'articles concernant Les 
produits Lagicieis créés en Forth. 

arc PETREMANN 


M 
93160 NOISY LE GRAND 


FAN DE THOMSON: bien sûr, de renouvelle mon abonnement, 
enthousiasmé Fu votre ASSEMBLER 6809. Mais mon paint de 
vue va probablement différer du vôtre: je ne me soucie 
plus de professionnel, Le PC m'importe peu. 


Seul nn FORTH über alles, mais aussi HRLL chose 
comme un LOGO écrit dans FORTH, peut-être FORTHLOg. 


Votre n° 41 confirme ma vision: FORTH Sera pour La 
galerie ce que Le VLSI a été en son temps. Mais FORTH 
appelle en AE une Libération des contraintes de 
réservation. LO60 Le Langage des petits du primaire 
devrait être celui des bacheliers techniques. 


FORTHLog semble être Libéré des réservations, mais 
comment aborder son utilisation, quel manuel en constitue 
une bonne approche? PROLOG est-1l un cousin? 


A noter que votre ASSEMBLER n'a surpris dans La Logique 
suite page 14 


VOIkKSsFORTH-83 FORTH-Gesellschaft eV (c) 1985:84 me’bp/re/ks EXTEND.SCR Seite 1 


1 4 
ù \s 14/12/87 YS \ CASE OF { }0F ENDCASE 14/12/87 YS 
1 Cher Secretaire, variable csp 
è : case spé csp ! : imnediate restrict 
3 Je vous fais parvenir un aot qui, je l'espere, sera : of compile over compile = compile ?branch mark 
4 utile aux utilisateurs de VFORTH-83 ne possedant qu un lecteur comile drop ; imnediate restrict 


endof compile branch mark suap :resolve : 1amediate restrict 
endcase compile drop 


» de disquette. C'est comme un VIEW, mais ca ne lance pas 
à l'editeur, Utilisation: 


7 BEGIN spé csp À = not 
8 WHEREIS TRUCMUCHE WHILE resolve 
9 REPEAT : iamediate restrict 
{5 Reponse: : { dup ; 
ii is an TRUC.SCR Screen |. : Dot compile #branch mark conpile drop : immediate restrict 
12 
15 On se rapporte aiors à son listing papier. 
14 
15 
2 Fe] 
û 14/12/87 YS \ BETNEEN Ex, pour CASE..,.0F..,ENDOF.. .ENOCAGE 14/12/67 ÿS 
À Üniyforth definitions dos also : between :r over : swap Fr: : or not 
2: whereis { -- ) 5 JOURIRZ (nn -— 
3 ‘name 4- & ’dup ü= abort" hand-made" CASE 
4 base & ;r decimal 1 OF ." lundi‘ ENDOF 
3 ."isin” 2 OF ." mardi” ENDOF 
8 #200 u/mad file-link À 1 7 between not ;0F ," jour non valide" ENDOF 
7 BEGIN € dup WILE dup fileno & = UNTIL À fcb } ." ni lundi ni mardi" 
B file drap ." Screen! " , ro base i : ENDCASE ; 
5 
1 
li 
12 
15 
14 
15 
3 [e) 
qi 14/12/87 VS 
1 L'ecran qui suit est l'implementation pour VFORTH-BI de la 
2 structure CASE. .0F,..ENDOF.. ENDCASE qui a mon avis perret 
3 une ‘belle programmation", J'y ai rajoute l ensemble 
4 è 
5 Us. 30F...ENDOF 
ë 


ou Les aots entre © et }0F evaluent une expression logique 
partir du nombre sur la pile, Exenpie dans l'ecran 5. 

9 Evidemment, les definitions de Ÿ et Of peuvent etre reprises 
1Ü telles quelles dans le FORTH-E3 pour FC, 


[ne] 


1 Yves SURREL, Saint-Etienne 
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suite de La page 12 machine réalisée, il faut pouvoir La programmer! 


de if..etse..then; elle est inverse de celle du FORTH et 
c'est bien normal car vous êtes parti de beg, bne, etc... 
ne if..then SEUL à bne..."then", mais ce n'est pas 
grave, Le premier choc passé. 


ûr, si c'est (relativement) facile que des machines 
faiblement parrallèles comme par exemple Les CRAYS, il 
n'en est pas de même pour des ordinateurs COmposés de 
plusieurs dizaines, ou même des miltiers de processeurs. 
On peut citer comme exemples de tel type de machines Les 
ordinateurs de La série T de FPS, ou dans Le cadre 
européen La famille des SUPERNODES qui comprendra jusqu'à 
mille processeurs pour un même ordinateur. 


REPONSE: 2060 est un très beau Dogue mais qui ne s'est 
HE démocratisé assez rapidement sur Les micros, A 

‘heure où AMSTRAD nel 5an drive pie CPC 464 avec 
L060 ut La société ACT parlait de LOGO pour APPLE, 
IBM ef autres à 2500 Fr minimum. Ils diffusaient même une 
version britannique pour SPECTRUM jamais A ITIAE en 
FRANCE. Puis ACT a été Le moteur de L'ASSOCIATION AFUL 
(utilisateurs de LOGO) qui a fait un LA monstrueux, 
Passons sur Le CENTRE MONDIAL de L'INFORMATIQUE L n'a 
jamais publié Le moindre article sur LOGO dans JEDI alors 
qu'une collaboration étroite nous avait été DE en 
son temps. Alors à qui La faute si LOGO s'éteint... 


Un des points communs des deux dernières machines est 
d'utiliser comme nest des . TRANSPUTERS de La 
socibté INMOS, et comme Langage de base OCCAM. 


Ce n'est pas un hasard, car Les TRANSPUTERS ont été 
CONÇUS ne exécuter de manière pure OCCAM. Le terme 
TRANSPUTER vient de TRANSistor et de comPUTER; c'est à 
dir que Le TRANSPUTER doit être considéré pour Les 
| . ordinateurs futurs comme Le transistor jus Les 
De toute façon, Les machines et Les Logiciels disponibles | ordinateurs actuels; c'est à dire une brique de base. 
deviennent si sophistiqués et offrent tellement de 
possibilité qu'il n'est plus possible de programmer s0i- 
même des applications ambitieuses. Par contre, it devient 
Stratégique de connaître Les principes de base et La 
PERS des Logiciels ES dBASE,  MULTIPLAN, 
LOTUS, WOROSTAR, etc... et accessoire de savoir 
programmer. Dans un bureau équipé en matériel, on 
AU très peu, on exploite beaucoup Les données et 

à communication. Et objectivement, quels sont les 
matériels Les plus répandus: IBN et compatibles... Et je 
n'invente rien. 


Cependant, il ne faut pas considérer M La brique de 
base est peu puissante; Le TRANSPUTER IMS T600 de INMOS 
est L'un des micro-pracesseurs Les plus puissant 
actuellement; Si ce n'est LE plus puissant. Il 5e 
compose, dans un seul circuit, d'un CPU 32 bits rapide, 
d'une unité de calcul flottant, de 4 Koctets de REN, 
d'une interface mémoire permettant de connecter 
facilement n'importe quel type de boîtier mémoire, de bus 
de données et d'adresses sur 32 bits, de 4 liens de 
nl d'un dispositif de gestion de processus, 
etc... 
Alors si l'Education Nationale désire former des futurs 
utilisateurs de matériel bureautique, elle se doit 
d'utiliser ce qui 5e trouve Sur Le marché: un futur 
comptable a plus de chance de trouver un travail s'il à 
see manipulé un tableur et un SGBD pultôt que LOGO ou 
LSÉ (soi-disant ie en POLYTECHNIQUE, arghhh... 
chatouillez-moil! - LSE c'est bien, c est beau, mais 
c'est un autre flop...) 


Pour Les adeptes du FORTH, on peut dire que Le CPU du 
TRANSPUTER ressemble un peu à La machine virtuelle Forth; 
il comporte une pile d'évaluation de trois registres, un 
pointeur d'instruction, un pointeur d'espace de travail 
et des pointeurs sur Les Listes des divers processus, À 
mon avis, il doit Être relativement simple d'implémenter 
FORTH sur un TRANSPUTER, et pourquoi pas créer un Langage 
FOCCAM qui soit un FORTR mais orienté gestion de tâches 
UE un mélange de FORTH et d'OCCAM... (Ndlr: 
URBO-FOCCAM???...). 


Nous reviendrons ultérieurement sur Les Liens de 
communication qi implémentent Les canaux de 
communication OCCAM; disons tout de suite que c'est La 
manière privilégiée de connecter plusieurs TRANSPUTERS 
ensemble. Dans une version Simple, un TRANSPUTER peut 
fonctionner sans circuit externe, chargeant son programme 
et communiquant par Les Liens. Dans une vesrsion plus 
ss chaque TRANSPUTER peut adresser 4 Boctets de 
mémoire! 


Maintenant, coté intérêt personnel et satisfaction de La 
curiosité intellectuelle, LO6D ou tout autre Langage 
performant est bon à connaître. Il ÿ a des notions 
Communes qui Vous profiterons Le jour où vous changerez 
de système et de PUELÉE Vous aurez moins de difficulté 
à passer de LOGO à PROLOG que de BASIC à n'importe quoi 
d'autre. Votre choix Sera toujours Le bon si vous y 
mettez La même passion à peser ue celle que vaus 
avez mis à découvrir cet univers fantastique qu'est 
L'informatique. IL paraît qu'on exploite qu'une fraction 
de nos capacités intellectuelles; de même, on peut passer 
toute une vie à nexplaiter qu'une partie des 
possibilités de sa machine et pourtant, il y en à qui en 
changent tous Les deux ans... 


Les performances du T809-30 sont Les suivantes: 2.25 
DAS en représentation virgule floattant ANSI-IEE soit 
6 MWhetstones jee seconde en simple Longueur pour ceux 
qui aiment Les Denchmarks. On peut dire que c'est environ 
fois mieux que l'ensemble MC 64020 avec MC 68881 ou 
environ 3,5 fois mieux que L'ensemble 80386 avec 60387 
tout en étant en un seul circuit (7 T600 offrent Les 
perforamnces d'un CRAY 15 en mégaWhetstones). 


Concernant L'ASSEMBLER 6809 en FORTH Eve publié, 
ja remarqué La même chose que vous, mais il était trop 
RL corriger: La fonction similaire à bne est ne. 
Or, il faut inverser en utilisant eq. ne et eq sont des 
constantes, l'une étant paire, L'autre impaire, Donc, 5i 
dans un programme assembleur on trouve "bne*, on remplace 
par eg if... then. Voilà, c'est pas compliqué. 


LE SECRETAIRE 


Le TRANSPUTER s'accomode facilement des “DER de haut 
niveau comme PASCAL, Cet AE Doc rement OCCAM, 
créé antérieurement au  TRANSPUTER pour gérer des 
de parrallèles. Le code OCCAM est, sur Le 
ee RANSPUTER, aussi dense que celui du code assembleur 

écrit par un Spécialiste (selon INMOS), donc Le Langage 
UN LANGAGE POUR LES ORDINATEURS naturel de programmation du TRANSPUTER est OCCAM. 


DE LA PROCHAINE GENERATION | : 
Après cette présentation du contexte d'utilisation 
par M.OURANTON d'OCCAM, voyons de plus près Le Langage. C'est un nouveau 
| Langage fondé sur Le concept de parrallétisme et de 
Devant la demande sans cesse croissante de La part des commuñication, contrairement aux Langages de 
utilisateurs de matériel informatique pour des machines torerts classiques qui sont be ete car ils 
dont Les performances sont de plus en plus grandes, Les Sont prévus pour Les machines classiques qui exécutent 
constructeurs et Les concepteurs sont amenés à réaliser Les actions les unes aprés Les autres. OCCAM permet 
des machines avec des architectures de LUS en prus TEE de PLysieurs rOCESSUS CO € pra fs pu nt 
variées, Una voie est de créer une acrchitecture plus Se dérouler sur b USIEUTS puces sers. tl É Coute des 
adaptée traitement parrallèle. Mais une fois La modèles PSP de HDARE et CCS de MILNER qui consacrent La 


OCCAM — 


du 
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composition parraltlèle comme méthode fondamentaie de 
structuration en programmation. 

La communication entre deux processus s'effectue par des 
gntrées sorties Svnchrones à travers des canaux de 
communication. La Rue formelle de CSP permet La 
Lecture d'un Ra OCCOM comme un prédicat formé d'un 
ensemble d'assertions dans une extension du calcul des 
prédicats où Les règles de déduction peuvent être 
pue On peut ainsi systématiquement utiliser des 
règles de transformation pour La construction correcte. et 
L'aptimisation des programmes. 


OCCAM peut exprimer La structure hiérarchique et 
modulaire d'un Système par encapsulation d'un ensemble de 
processus communiquants permettant à L'environnement de 
Le voir comme un Seut processus, Un canal peut être 
considéré comme un Composant élémentaire de 
Synchronisation entre deux processus, En OCCAM, Les 
instructions élémentaires sont des processus el donc 
peuvent S'exécuter en parrallèle avec d'autres. Les 
constructeurs du age permettent l'exécution 
parrallèle ou séguantielle d'un ou de plusieurs 
processus, ainsi qu'une sélection non déterministe d'un 
Hi un ensemble de processus, en fonction de conditions 
ogiques appelées “gardes'. Un répétiteur complète La 
Liste des constructeurs du Langage. 


Un programme >OCCAM peut s'exécuter Sur Un processeur où 
sur plusieurs; dans ce cas-là, celui-ci partage son QUE 
entre Les processus concurrents et des valeurs dans La 
mémoire réalisent des canaux. Les règles de 
transformation de programme LRU cette souplesse en 
altérant Le ter de parralélisme et en Le réalisant par 
quasi-parrallélisme sans changer La sémantique du 
ML Le ARAUE traite aussi bien Les aspects 
Systèmes tels que Le traitement des interruptions et La 
multi-programmation. 


Deux processus concurrents en OCCAM communiquent par un 
protocole de rendez-vous. Quand l'émetteur d'un message 
est prêt à transmettre vers un récepteur non encore prêt 
à recevoir, il va attendre que Le récepteur indique La 
possibilité de recevoir Le message. Quand Le récepteur 
est prét, Le message est envoyé et Les deux processus 
continueront dans des tâches indépendantes. 


La Syntaxe du Langage OCCAM est sommairement décrite dans 
l'annexe: "OCCAM: une introdctio rapide". 


Un exemple de programme OCCAM est donné dans l'annexe: 
OCCAM: un exemple”, 


Cet exemple n'a aucune portée pratique: il s'agit de 
réaliser N° processus parrallèles qui s'exbcutent 
simultanément et qui ne font qu'envoyer Leur numéro vers 
l'écran. Comme Les communications sont point à point, st 
a besoin d'un processus (le "screen-mixer*]) qui affiche 
Les numéros Séguentiellement à L'écran sans favoriser un 
OrOCeSSu5. Un autre problème est L'arrêt correct des 
prücessus Sans ’dead-tock". L'exemple présente une 
manière Ssimote d'y arriver, Attention, Ro est 
donné pour voir La Syntaxe OCCAM et quelques problèmes: 
il n'est pas du tout optimisé. On remarque cependant que 
L'indentation est essentielle en OCCAM; un processus peut 
5e Composer de Sous-nrocessus, mais alers ceux-ci sont 
indentés plus à draite, Par exemple: 


GEQ 
praci 
proc? 


or en 


est [e processus séquentiel composé de proc* et puis de 
orac2. Par contre: 


PAR 
SEG 
proc 
proc? 
proc3 


est Le processus parraltéie composé de deux SOU5- 
processus: UN premier lui-même composé de proc et proc, 
et Le second constituant du processus parrallèle est 


gr6c3. 


L'indentation en OCCAM est équivalente au BEGIN-END du 
PASCAL ou des © - } du C. La réalisation de ces 
indentations est facilitée par L'éditeur du Re de 
A RAenEnt OCCAM. C'est d'ailleurs un éditeur très 
agréable car ii est hiérarchique: Le En est entré 
Sous forme d'arbre et chacune des feuilles peut-être un 
fichier texte séparé. Par exemple, Lorsqu'on entre dans 
un programme, on voit s'afficher: ...PROGRAM TOT0O on 
place Le curseur à cet endroit et on entre dans Le 
programme; S'affiche alors Le nom des différentes parties 
du programme. Si on se place sur une de ces parties, on 
peut entrer dedans et voir Les en-têtes des procédures: 
puis on peut entrer dans La procédure pour voir Les 
déclarations au Le code. De cette façon, on peut choisir 
à quel niveau on veut Lire un programme, et on ne 
s'encombre pas de texte inutile. Dans Le Listage, qui est 
une mise "à plat" de La structure, un point d'entrée est 
donné par -- en début de FLE (ce qui correspond à une 
Ligne de commentaire en OCCAM),. 


It y à bien d'autres choses à dire sur OCCAM, mais mon 
but est Seulement de présenter sommairement ce Langage 


qui est promis à un certain avenir. 
REFERENCES: 
Manuel de programmation OCCAM - INMOS 
Introduction à OCCAM - IMAG/LGI 1983 


OCCAM: 
UNE INTRODUCTION RAPIDE 


INTRODUCTION: | 

OCCAM est un nouveau tangage de programmation tan 
des applications concurrentes dans lesquelles plusieurs 
parties d'un systéme fonctionnent séparément et inter- 
ee IU peut être utilisé pour de nombreuses 
applications actuelles, particulièrement celles 
te l'utilisation de microprocesseurs et de temps 
réel. 


Les applications futures 


OCCAM sera essentiel pour 
de plusieurs centaines de 


impliquant L'interraction 
composants de calcul. 


DECLARATIONS: | : 

La déclaration des variables peut 5e faire à n'importe 
ju moment dans un programme, tant que La variable est 
éclarée avant Le processus qui l'utilise. Une variable 
déclarée dans un processus englobant est aussi connue 
dans Les processus englobés. 


Les canaux 5e déclarent suivant Les mêmes régles que Les 
variables. 


IL est possible de déctarer des tableaux de variables qu 
de Canaux. 


Plusieurs types de constantes sont possibles. Exemple: 


DEF maximum: 16 ,minimum:0: 
VAR volume: 

CHAN ampli hp: 

SEQ 


PROCESSUS PRIMITIFS: .. 
I y a trois processus primitifs à partir desquels tous 
tes autres sont construits: 


- Un processus d'entrée sur un canal de communication 
CANOL ? VARIABLE 

- Un Drocessus de sortie sur un canal de communication 
CANAL ! EXPRES 10 | 

- Un processus d'affectation 
VARIABLE := EXPRESSION 
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(note: l'affectation peut se décrire en termes de 


communication: 


PAR 
CANAL ! EXPRESSION 
CANAL ? VARIABLE 


CONSTRUCTEURS : | 
Les processus élémentaires 
constructeurs qui sont: 


sont associés par des 


SEQ : Les processus sont exécutés séguentielLement. 
dL HSE commence Lorsque Le précédent est 
erminé. 


PAR : Les processus sont exécutés en parrallèle. Le 
processus PAR Se termine Lorsque tous 5es 
constituants sant terminés. 


ALT : Le processus qui se déroule est celui dont La 
art est vraie. Le processus global 5e termine 
orsque Le processus élu se termine. Exemple: 


DEF minimum=0: 
VAR volume: 


Q 
volume :=0 
WHILE TRUE 


ALT 
touder ? ANY 
SEQ 


volume :=volume+1 
amplificateur ! vatume 
{volume ) minimum) & softer ? ANY 


Q 
volume :=volume-1 
amplificateur ! volume 


(note: un ALT avec priorité existe: PRI ALT) 


REPLICATEURS : . : 
Un constructeur peut être multiplié par un réplicateur 
qui est e La forme: 


variable=Ctpremière valeur) FOR 
{nombre des répliactions)) 


Pour exemple, Le programme suivant en PASCAL: 
FOR i:=1 TO 10 DO 
BEGIN 


a:5àt]; 


s'écrit en OCCAM 


SEQ i=C1 FOR 10] 
tsdtl 


Le réplicateur peut s'utiliser pour tous Les 
constructeurs. Exemple: voici Le MEL OCCRM Fe fait 
une estimation suivant La méthode de NEWTON-RAPHSON en 
utilisant une métode pipeline: 


CHAN valeur[n+1]: 
PAR 1[0 FOR n] 
WHILE TRUE 
VAR x,estimation: 
SEQ 


valeursti] ? x 

vateurs[i] ? estimation 

valeurstit1] Lx re 
valeursti+1] ! Cestimationt(x/estimation))/2 


STRUCTURES DE CONTROLE: 

WHILE econdition) : répète un Sous-processus tant que La 
_ condition est vraie. 

IF  «<conditiont} 


(processus?) 


(condition2» 
{precessu52) 
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Le IF OCCAM ressemble à un CASE en PASCAL: Le premier 
processus dont La condition de garde est vraie s'exécute. 
Si aucun des HSE n'est exécuté, Le IF est 
équivalent à un NOP. 


PROCESSUS NOMMES : 

On peut créer des processus nommés avec. qssae de 
paramètres: ceux-ci peuvent être des variables, des 
Canaux où des valeurs. La syntaxe est La suivante: 


PROC enom> (VAR tident>, CHAN tident», VALUE tident))= 

{corps du processus): 
OCCAM dispase de nombreuses autres potentialités: 

- accès à des tableaux par octets: exemple: 

DEF ET Es EN PE TN LE 

SEQ 1 FOR alphabetÉBYTE 01] 
Lettres ! alphabet[BYTE i] 

- gestion du temps comme dans L'exemple suivant: 


DEF timeout =100: 
VAR clock,x: 


SEQ 
clock :=N0W 
ALT 


ct ?x 
2 | ok MeSSage;x 

WAIT NOW AFTER clock+ttimeout 
c2 ! timeout message 


- opérateurs complets: 
+ # AU VS DC AND OR NOT TRUE FALSE (4 )) 


+-#/ 
{)t=)zz 06) 
- etc... 


ANNEXE: OCCAM UN EXEMPLE 


-- PROGRAM ESSAI 
-— 55al 

-- constantes 
DEF nbprocess = : 
DEF EndBuffer = -2 : 


DEF CR = #0D : 
DEF LF = #08 : 
DEF fin = -1: 


DEF texte = "Arrêt total de tous Les processus..." 


CHAN screen AT 1 : 

CHAN keyboard AT 2 : 

CHAN ecr £ nbprocess ] : 
CHAN arret © nbprocess ] : 


== SCreen.mix. 
PROC screen.mix € CHAN scr£] ) = 


VAR fini,car,00 : 
SEQ 
ini:=0 
o:=TRUE 
HILE go 
ALT 1={[0 FOR nbprocess] 
scr{i} ? car 
SEQ 
IF | 
car=fin 
DE 7. 
ini:sfinit1 
IF 


HRISMDAReSS 


Jr GE 
TRÛE 
GKIP 
TRUE 
screen | car : 


= process 
PROC process ( chan ecrt] , arret [] } = 
PAR 1= [0 FOR nbprocess ] 


LE enfin Le programme principal 
PAR 


t fini 
pie cestfini € CHAN entree , halt [ ] ) - 


cestfini € keyboard , arret ) 


VAR notfini : 
GE process ( ecr , arret ) 


notfini := TRUE screen.mix ( ecr ) 
WHILE notfini screen ! CR ; LF : EndBuffer 
PRE ALT SEQ i = [ ? FOR texte [ BYE 0 ]) 
arret [ 1 } ? ANY screen ! texte [ BYTE i ] 
natfini := FALSE screen ! CR ; LF : EndBuffer 


notfini 4 SKIP 
erLiilistg 
ecr [i] ! fin: 


c'es PROLOG 


entree ? ANY 
PAR 1 = C 0 FOR nbprocess ] 
HALT Li ] ! ANY : 


téléchargement ASCII ou KER 


OLLLLEELE LEE EE EL TE LEE TETTEEETTE PONEPS EPP EPP PENNPRPPE PRE TEE) 


REMARQUE IMPORTANTE: ce A RE 
sur + 


CALCUL DE RESISTANCES 


anible 


I. 


IL #| 
1% LE LEE CITE ETS EI CITE ST RE T IT */ 
1x ŒROOHROOHR OO HHHÉMAMEENAEMENSX HE LH */ 
+ RARE HE HE #  RESISTANCE # NN HAN #*/ 
Î* * MAN RO HAMMÉNRMERNRNS HE  HAUX * #/ 
E] # MUR ME HARMONIE HE HAE Li */ 
fa ï ‘ *| 
ELLES LEE EEEETEESTETESSTEETEEEEOENTEEENENEEE PEER EPP PNTI TE II TT 
[4 Ce quil RFI cherche et trouve a La place de L'electronicien +*/ 
I# debutant l'assemblage de resistance standard donnant une resistance de */ 
F4 valeur non standard. *| 
LLLLLSL ELLE LELEEEETECEEZSS TE ETESTEREE ST TENTE EPPEPPPPPPPPP PPS TE T TEL TES 
predicates 

debut 

resyltat(real) 

resistance(real) 


serie(real real real) 
parallete(real real real) 


oal 
! debut. 


clauses 
debut :- 


write("Entrez La valeur de La résistance recherchée: cr 


readreal(X),resultat(X),nl,nl debut. 
resultat(x} :- | 
resistance{X), write{'La résistance: ‘,k 
" existe dans La serie "),nl. 
resultat (X) 1e J | 
X=C,serie(A,8,0), writel'La résistance: ",k 


BR," et ‘,8," Ohm ‘),nl. 

resultat) :- | 
X:C,parallele(A,B,0), writel'La résistance: 
8," et *,8,* Ohm ‘ 

resultat(x} e 
nat(resistance(X)}, 


“s'obtient en mettant en serie deux résitances de: * 


x 
s'obtient en RL parallèle deux résitances de: 
AL, 


write(* pas de solution avec La serie de résistance utilisée"), 


nl,write(" utilisez une résistance ajustable. 


*},nl 


Write('ou une résistance ayant une valeur approchée"},nl. 


SELLE EEE LES EE CEEETEEEEESSTT EEE TENTE PPNEPNEE PPT PE PTIT T I ETES 


l# cette Serie de resistance est standard, elle peut etre remplacé par Le . 
# 


[4 jeu en votre possession. 


RARES LE EEE EEE ES LEESEZ CT EEEESEDEODTESS SRE PIOPONENS PONT 


resistance(1). resistance(2).  resistance(5). 
resistance(10). resistance(220). resistance(4700). 
resistance(12). resistance(270). resistance(5600) 
resistance(15). resistance(330). resistance(6800). 
resistance( 18). resistance(390). resistance(8200) 
resistance(22). resistance(470). resistance(10000). 
Pesistance(27). resistance(560). resistance(12000) 
re51Stance(33). resistance(680). resistance( 15000). 
resistance(38), resistance(820). resistance(18000). 


resistance(8). 

resistance(100000). 
resistance( 150000). 
resistance(180000) 
resistance(220000). 
resistance(270000). 
ess ace (ET Qn). 
resistance(390000). 
resistance(470000), 
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resistance(47). 
resistance(56). 
resistance(68). 
resistance(82). 


û 
û 
(] 
û 


resistance(10 
resistance(12 
resistance(15 
resistance (18 


serie(A,B,C) : 
resistance (r, resistance (8), C = A+B. 
parallele(A,B 


. resistance(3900). resistance(82000). 


a CEE “resistance(®), resistance(C),A=8B, 


parallele(A,B,0) 


resistance(1000). resistance(22000). resistance(560000). 
resistance(1200). resistance(27000). resistance(640000). 
resistance(1500), resistance(33000). resistance (420000). 
resistance(1890). resistance(39000). resistance( 1000000). 
), resistance(2200). resistance(47000). resistance( 1500000). 
}. resistance(2700). resistance(56000). resistance(1800000). 
| resistance(3300). resistance(68000). resistance(2200000). 


A: 2%#E€. 


en resistance(B),A © 8, C = ((AxB)/(AtB)). 


He nicolas brun avril 1988 #/ 


MODIFICATIONS DE META.FTH ET KERNEL.FTH 
OU LANGAGE TURBO-FORTH 83-STANDARD 


Liste des modifications à nier au fichier META.FTH du 
module M2 de TURBO.FORTH 63 Standard pour méta-compiler 
en extra-segment: 


- suppression de TARGET- ORIGIN et THERE 
LL de LESET et redéfinition des mots C@-T à 


1 Nots d'accés mémoire EU LL dans La cible 
\ VARIABLE SEG-T VARIABLE 
À segment et offset de La de 
CODE LCSET ( oct seg adr -- 
05 CX MOV EX POP 1 POP AX POP AL 0 [BX) OR 
CX DS MOV NEXT END-CODE 
SEG-T @ SWAP LCR ; 


{S taddr -- char } 

{S taddr -- n ) SEG-T @ SHAP LE ; 

{5 char taddr -- )  SEG-T @ SWAP LC! : 
| {5 n taddr -- ) SEG-T @ SWAP LI ; 
: CSET-T ($ 0 taddr -- SEG-T @ SWAP LCSET 


Le reste est inchangé de HERE-T à 5,-T) 
- Supprimer Les THERE et remplacer THERE CSET par 
CSET-T 


- modification de La troisième Ligne de HEADER: 


: HEADER (S -- ) 
BL WORD Su 1 ui É MIN ?OUP IF 
ALIEN w field ) 
HERE CURRENT. 1 e sf “our Q-T ,-T 
HERE-T 2- SWAP 
HERE-T HERE AT. s! -T ALIEN DUP LAST-T ! 
128 SUAP CSET-T 128 HERE-T 1- CSET-T THEN ; 


- modification de La définition de STATISTIQUES: 


: STATISTIQUES 
CR ." REFERENCES NON RESOLUES:" CR .UNRESOLVED CR 
STATISTIQUES: 


L) 
* Segment hôte: " DSEGMENT U. 

." Dernière adresse hôte:  * CFORTH] FA U. 
* Segment cible: " SEG-T QU 
! “ META 256 U. 

" META HERE-T U. 


Première adresse cible: 
: Dernière adresse cible: 


Liste des modifications à AUS au fichier KERNEL.FTH 
du module M2 de TURBO.FORTH 83 Standard pour méta- 
compiler en extra-segment: 


- changer Les déclarations d'adresses après avoir fait 
ün ALLOC de 2464 : 


lice ALLOC OROP À réserve 64K supplémentaires pour 
a cible 
DSEGMENT HEIGHT + SEG-T ! 256 DP-T ! IN-METR 

- supprimer encore Les THERE ( à La fin ) 
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- La seule définition à modifier est celle de CONTEXT: 
VARIABLE CONTEXT 
€ cette’ suite est "plus no qu'un ALLOT et un 0 LFILL 
pour ERASE ) 

(7 fois suffisent : VARIABLE en donne déjà un 

- La sauvegarde finale s'écrit: 
META SEG-T @ 256 ( adr début) HERE-T ( adr fin) 

ONLY FORTH ALSO LSAVE TEST,COM  FORTH 


Petites modifications des opérateurs extra-segment 


L'instruction 6086 POP DS est valide ! (code ‘F): 
remplacer Les DX POP DX DS MOV par DOS POP : 


CR .C Opérateurs mur ( et 16 bits inter-segments) 


CODE LI € val Do adr? 
DS AX MOV POP ns POP © CBX] POP 
AX OS MOV NEXT END-CODE 


CODE LC! . oct He adr2 -- 
05 CX MOV POP OS POP AX POP AL 0 [BX] MOV 
NEXT END-CODE 


DS POP 
0 C8X] PUSH  CX OS MOV NEXT END-CODE 
CODE RS qe adr2 -- pct ) 
X NOV GX POP DS POP AX AX XOR 
rh tx AL MOV CX DS MOV PUSH END-CODE 


CR .C Mouvements blocs de mémoire inter-segments) 
CODE LEMOVE (5 fron- Me from-adr to-seg to-adr count -- } 
CLD IP BX MOV  CX DE bre OI POP ES POP 


NEXT END-CODE 
CODE LCMOVE) (S from- from-adr to- se) ts cn count --) 
STD IP BX MO X POP DOI ou 


00 EX INC 
BX IP MOV OX DS MOV 
CED NEXT END-CODE 


Autres modifications sur Le même principe : 


CODE Ft dE 1 adr ce b -- 
CLD CX POP DO! POP ES POP 
REP AL ETS NEXT END-CODE 


(il est inutile de sauver ES: ce registre est souvent 
utilisé sans être préservé comme La plupart des registres 
6086 dans Forth ) 


CODE (GET) € segm buffer Len hndl -- Len ft ) 
DS AX MOV ES AX MOV BX POP  CX POP 
DX POP OS POP  3F # AH MOV 21 INT 


ÿ- fe tj ÿ a ov Xe usa END-CODE 
CODE (PUT) © segm buffer Len hndl -- Len fl ) 


LL à 


DS AX MOV 
DX POP 
AX PUSH 
U>= IF 


ES AX MOV  BX POP  CX POP 
05 POP 40 # AH MOV 21 INT 
ES BX MOV BX DS MOV 
0 # AX MOV THEN 1PUSH END-CODE 


Petite modification de DIR: 
- äjout d'un UPC dans (DIR) (si i:#.x minuscules) 


: DIR) AT = ) | ; 

128 SET-DMA ( valeur habituelle DTA in PSP )] BASE @ 
DR DRV DR DECIMQL 

OVER 1+ C@ ASCII : = 

IF OVER C@ UPC ASCII A - SELECT THEN 

el PACE 0 PAD COUNT + C1! PAD 1+ 16 (SEARCH) 


BESIN .NAME #OUT @ 70 > IF CR THEN 
(SEARCH) NOT 


L 
THEN #OUT @ IF CR THEN 
DRV ASCII À + EMIT ," 
." octets Libres * 
R) SELECT R) BASE 1 ; 


REMARQUE IMPORTANTE: ces modifications n'influencent pas 
La syntaxe où Le comportement des versions modifiées par 
TU aux précédentes versions. Elles apportent 
seulement une meilleure qualité de fonctionnement. 


FREE D. 


ERREURS DANS LE SQURCE 
DE TURBO-FORTH 83-STANDARD 


Mr Charles MOHR nous signale une erreur dans La 
définition du mot SERRCH. Remplacer Le mot U)= par Ut= 


: SEARCH ( stradr strlen badr blen --- nf) 
FOUND OFF SWAP DR 2OUP Utz 
IF OVER - 1+ 2 PICK C@ RQ -ROT )R 
BEGIN R@ SCAN-1ST OUP 
IF OR 3OUP SWAP COMPARE 0- 


IF FOUND ON R> DROP 0 )R THEN 
nn 
PLUS É: 
TELEMATIQUE 


JEDT SUR 3615 


par Marc PETREMANN 


d'avais ÿ 
de rechercher un prestataire de Service pour héberger un 


proposé aux adhérents, voici déjà quelques mois, 
service télématique JEDI. Comme 
manifesté avec TUE en dehors 
AUDE Mr FORGET et Mr 


obligé de tout faire moi-même. 


Un contact à été pris avec La Sté VICTEL et L'idée 
A D JEDI Les à intéressé. Manque de bol, Le code 
JEDI es ie pris par l'événement du JEUDI (eh, oui, ils 
ont des Lecteurs faibles en faurtografe' qui täpent JEDI 
pour JEUDI; et JÉUOI est une nue PQ depuis Le 
DSLRIeRE jour de La création....), Donc, ICTEL un 

€ SAM et Le code d'accès au service télématique de JEDI 
est: SAMFJEDI via Le 3615, 


personne ne S'est 
de deux propositions de 
CHANDRU), j'ai encore été 


Bien sûr, j sttends Les critiques: encore 1 
n'est pas donné! Mais VICTEL est une SARL qui ne vit pas 
que d'eau fraiche et de chansonnette. ILS acceptent de 
Nous héberger sans garantie d'une rentabilité immédiate. 
Par contre, si Les récettes deviennent significatives, il 
ne Convenu du principe de reverser ün pourcentage à 


Le 3615, ce 


d 


La solution du prestataire de Service noys üég je 
ibilité. 


Souci matériel, Logiciel, maintance et dispon 
contre, à nous d'animer ce service. 


age 
pl 


Tout de suite et dès maintenant: 


- téléchargement des Programmes parus ou à paraître 
dans JEDI. 


Très bientôt: 


- FORUM de trucs, communication et BQLs adhérents; 
possibilité d'assistance Logicielle sur des questions de 
programmation. 


Le service SAM#JEDI est évolutif. 5i 
Suggestions n'hésitez pas. 


LE TELECHARGEMENT : | 

Tout de suite et dés maintenant, téléchargez Les 
ENT ame ASCIT à L'aide d'un AL de core 
ELÉTEL vers IBM (ou A ME etlou ATARI et/ou APPLE 
(autres si compatibilité ogicielle),. 


vous avez des 


Ftcnrgee également en protocole KERMIT des nlciels 
exécutables (,COM ou .EXE) pour IBM (ou Font M). Le 
DAitieL KERMIT est disponible SAUT de L'ASSOCIATION 
JET contre 10 tinbres à 3,70 Fr ou 30 Fr de supplément à 
toute commande de Logiciel ou revues JEDT (en dessous de 
70 Fr de Commandes, payez par timbres postaux, SVP). 


LE CABLE DE LAISON MINITEL - MICRO: 

Rabattez-vous sur vos revues habituelles. Elles ont 
raÉguenent toutes diffusé Le plan du cäble de Liaison 
INIT MICRO. 


LES CARTES: ; 
Carte KORTEX, WINNTEL, etc.. seront Les bienvenues. 


LES LOGICIELS: | . 
KXCOM pour carte KORTEX, LCECOM pour câble PC-MINITEL. 


CE QUI EST DISPONIBLE SUR SAMXJEDI : 


TURBO. COM 
EDIT.COM 


package TURBO-Forth, module 1 


benchmark crible d'Erathosthène 
RESISTAN.PRO Calcul de resistances en PROLOG 
Les fichiers sont identifiés de La maniére suivante: 


LANGARGES PC Compat. 
f Programme Type Desciption 
1 ERATHOS.FTH JR CRIBLE ERAINOSTHENE 
3 TURBO.COM J 8 TURBO F83-STANDARO 
etc... 


- J signifie qu'il s'agit d'un programme MAITRE JEDI. 
- A signifie qe Le frayramne est au format ASCII, donc 
téléchargeable tel quel où par KERMIT. …. 

- B signifie que Le programme est en binaire, donc 
téléchargeable Seulement en binaire. 


COMMENT SE CONNECTER SUR SAM4JEDI : 
{pour Les adhérents concernés) 
(information FRANCE TELECON) 


- DEPUIS LES DOM: 
-Télétel 3 : 36 15 


Composez ensuite Le nom abrégé du service ou Le 20 80 
SUIVI du numéro d'identification du service (N° Transpac 
amputé de son premier chiffre). Exemples: 


-en métropole : 100600078 
.au départ des D0M:2080 00600078 


Attention, certains services qui, depuis La métropole 
put ac fess bles par nom abrégé, ne Le sont pas forcément 


depuis Les | | 
5 ce n'est pas précisé dans l'annuaire, contactez Le 
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correspondant des usagers du service. 
- DEPUIS L'ETRANGER: 


ilisation du réseau téléphonique international (pour 
e 2 et 3): 


se 


Létel 1: 33 36 43 13 13 
Létel 2 : 33 36 43 14 14 
tétel 3 : 33 36 43 15 15 


L'annuaire électronique est accessible par Télétel 2 
puis: 


- code AE pour La version francaise 
- code ED pour La version anglaise 
Tététel peut être ESS directement si Le service est 
raccordé au réseau téléphonique. 


Utilisation des réseaux de commutation par paquets (pour 
Télétel 1 et 2): 


Un certain nombre de pays ont un réseau commuté par 
paquets relié au NTI: 

- soit par L'intermédiaire des points d'accès VIDEOTEX 
compatibles TELETEL (donc utilisation de mots abrégés 


possible). 
par des PAD ASCII K3. 


- soit 


Les terminaux utilisables sont, Selon Les cas, des 
Minitel ou micro-ordinateurs équipés de modems adéquats. 


L'annuaire AIT est accessible: . 
- NUA 2080 3500233 ju La version francaise 
- NUA 2080 3500233002 pour La version anglaise. 


Le service GROOM (pour Télétel 3): 


Raccordé à TRANSPAC, Le service 6ROOM, accessible sur 
abonnement, permet À tout usager hors de France, 
d'accéder aux services kiasques de Télétel. 


Cas particuliers: Télétel et Les réseaux Vidéotex 

des autres qe: Entre La FRANCE et La RFA, L'accord 
passé entre Les deux pays permet à un Minitel en France 
de consulter Les services BILDSCHIRMTEXT en RFA, et 
réciproquement. 


.en composant 36 22 49 49 


Pour en savoir plus, La brochure "APPELEZ TELETEL DEPUIS 
LE MONDE ENTIER" (Francais et Anglais), précise entre 
autres pour chaque pays: 


- quels sont Les Minitel homologués 

- Les distributeurs de Minitel | 

- La consultation des services Télétel installés en 
France | 
- Les passerelles possibles 
- où consulter Le Service 


Pour 5e QT La brochure, écrivez à: 

CNET PARIS A | | 

Service de La Documentation Technique 
38/40 avenue du bénéral-Leclerc | | 
F - 92131 ISSY LES MOULINEAUX 


TELEMATIQUE 
CONNEXION AU REGEAU BTX (BILGSCHIRMTEXT) 
AVEC UN MINITEL 


par Marc PETREMANN 
Matériel: un minitel (un dictionnaire ALLEMANO-FRANCAIS) 


Le système BILOSCHIRMTEXT équivaut au système TELETEL 
QUE pour La RFA Challo, freunde...) ou PRESTEL pour 
La GRANDE-BRETAGNE Chello kids...). Il existe entre Le 


BTX et TELETEL un pont: 36.22.49.49 (voir tarif via Le Î1 
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en FRANCE). Nous avons fait un petit essai: 


Bildschirmtext 


Deutsche Bundespost 


15.04.88 13:52 
Guten Tag 


CNET 
Passerelle Experimentale 


Nous n'allons pas insister. Si votre PC est connecté à 
votre MINITEL et que vous Rue utiliser indifférement 
votre clavier PC ou MINITEL pour répondre voici Les 
manipulations à connaître: 


*0 SUITE pour Le menu général BTX 


na à sélectionner entre 00 et 98 sans SUITE pour 
sétectionner un choix dans Le menu, 


#n..n# pour sélectionner une page directement ou un 
service 


# équivaut à suite si L'affichage est reporté sur 
plusieurs pages consécutives. 


ATTENTION: de nombreux services sont à accès codé, voire 
payant; depuis Le menu général: 


81 Dialogue à distance (pour germanophones...) 
82 TELEX 


83 TELE-ACHAT 
84 BTX-International 


711 Informations générales sur BTX 

93 déconnexion à BTX | | 
Voilà pour Les DARLE informations concernant BTX. Si 
nous apprenons l'existence de services intéressants, nous 


ne manquerions pas de vous communiquer La marche à 
suivre, 


LE ns 


y 


